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BEVEZETÉS 


Bizonyára sokan szeretnék tudni, hogyan működik egy programnyelveket fordí- 
tó rendszer. Talán olyanok is vannak, akik maguk által szerkesztett nyelvekhez 
szeretnének fordítóprogramot írni. 


Nagyszerű érzés, ha valaki olyan programot tud készíteni, amelyik egyik prog- 
ramnyelvről egy másik programnyelvre fordít. A könyv tanulmányozása után 
az Olvasó számára ez érthetővé válik, sőt maga is tud majd fordítóprogramot 
Írni. 


Először a MINIATUR programnyelvet ismertetjük, amit a fordítók bemutatására 
fejlesztettünk ki. 


Ismertetjük a fordításhoz szükséges eljárásokat és végrehajtjuk a MINIATUR 
nyelvű program BASIC programmá alakítását. Ezzel az Olvasó a könyvben leírt 
nyelvre vonatkozóan a teljes fordító birtokába jut, amelyet tanulmányozhat és 
tetszés szerint módosíthat, pl. bővítheti a leírt nyelvet. 


Ezt mintaként is használhatjuk arra, hogy egy tetszés szerinti nyelvhez fordítót 
írjunk. Előfordulhat, hogy a számítógépet valamilyen meghatározott célra kí- 
vánjuk használni, de erre a célra még nincs megfelelő programnyelv. Ebben 
az esetben ki lehet fejleszteni egy olyan nyelvet, amely jól illeszkedik a problé- 
máinkhoz, és meg lehet írni hozzá a megfelelő fordítót. 


Ezt a könyvet azonban nemcsak azoknak szánjuk, akik a compiler működését 
meg akarják érteni, vagy fordítóprogramot akarnak írni, hanem azoknak is, akik 
többet kívánnak tudni a számítógépek működéséről. 


Bekapcsolódhat az Olvasó a gépi kódban történő programozásba is, könyvünk- 
ben ugyanis egy teljes ASSEMBLER- és egy DISASSEMBLER programct ismer- 
tetünk. A fordításhoz használt 6510-es gépi utasításai is megtalálhatóak a 
könyvben. 


Az olvasó így alaposabban megismeri a programnyelvek és a számítógépek 
működését. 


1. MI A COMPILER? 


1.1 Miért van szükség compilerre? 


A mai számítógépek szíve a mikroprocesszor. A mikroprocesszorok azonban 
csak olyan programokat tudnak végrehajtani, amelyeket az ő gépi kódjukban 
írtak. Most azt gondolhatjuk, hogy a mi számítógépünk a BASIC programnyel- 
vet megérti. Ez az ellentmondás csupán látszólagos! Számítógépünk azért érti 
meg a BASIC programnyelvet, mert egy olyan gépi kódban írt programot tárol, 
amely lehetővé teszi, hogy a BASIC utasításokat felismerje és végrehajtsa. Ha 
tehát egy BASIC programot futtatunk, a számítógép valójában egy olyan gépi 
kódban meglévő programot hajt végre, amely a BASIC programok utasításait 
tartalmazza, vagyis felismeri, értelmezi és az ezeknek megfelelő gépi művele- 
teket elvégzi. Ez meglehetősen sok munkát igénylő és mindenekelőtt időt rabló 
módja a program végrehajtásának. Felmerül tehát a kérdés, hogy akkor miért 
nem programozunk egyszerűen gépi kódban? 


A gépi kódú programozás nagyon távol áll az ember gondolkodásától. A gépi 
kódú program a kettes, a tizenhatos vagy a tízes számrendszerbeli számjegyek 
sorozata. Ez a sorozat a program valódi, hű képe, ahogyan azt a mikroprocesz- 
szor a számítógép tárjában megtalálja. 


Milyen utasítást hajt végre a COMMODORE számítógép, ha a következő gépi 
kódú programot találja? 


Tízes számrendszerben: 
169 65 32 210 255 
Tizenhatos számrendszerben: 


AZ 41 20 02 aj 


Kettes számrendszerben: 
10101001  01000001 00100000 11010010 11111111 


Ezekből a számsorozatokból nehéz kitalálni, hogy a fenti utasítás hatására az 
A betű jelenik meg a képernyőn. 


A PRINTA BASIC utasítás viszont már sokkal közelebb áll az emberi gondolko- 
dásmódhoz. A PRINTA BASIC utasítás gépi végrehajtásának a megindításához 
a BASIC interpreternek (értelmezőnek) mintegy százszor hosszabb gépi kódú 
programra van szüksége. A mikroprocesszor a programnyelvű utasítás végre- 
hajtása előtt viszonylag hosszú időt tölt azzal, hogy felismerje, mit is kell 
tennie. Sokszor egy utasítás felismerése tovább tart, mint a végrehajtása. 
A fordítás sokkal bonyolultabb lesz, ha pl. a PRINTA BASIC utasítást egymás 
után ezerszer kell végrehajtani. Az utasítást ekkor egymás után ezerszer kell 
felismerni, de az interpreterrel ez nem megy másként. 


Gondoljuk végig a fordítás folyamatát! 


Vegyünk egy olyan programot, amelyet valamilyen magasabb szintű nyelven 
(pl. BASIC-ben) írtunk, és özt alakítsuk át gépi kódú programmá. Így olyan 
programmal rendelkezünk, amelyet kényelmesen megírhatunk és amelyet a 
gép mégis gyorsan fel tud dolgozni, mert az utasítások hosszadalmas felisme- 
rése elmarad. 


Nos, ezt a munkát végzi a compiler! 


A compiler tehát nem más, mint egy olyan program, amelynek az a feladata, 
hogy valamilyen magasabb szintű nyelven megírt programot gépi kódú prog- 
rammá alakítson át. 


Szükségszerűen felmerül a kérdés: milyen nyelven írjuk meg a compilert? 


Ha egy elhagyott szigeten lennénk olyan számítógéppel, amelynek valamilyen 
okból az az építőeleme, amely a BASIC interpretert tartalmazza, működéskép- 
telen, akkor bizony nem lenne más választásunk, mint a compilert gépi kódban 
megírni. 


Egy idő után biztosan azon gondolkodnánk, hogy a gépi kódot egy kissé 
olvashatóbbá tegyük. Azokat a műveleteket, amelyeket a mikroprocesszor 
egyáltalán eltud végezni, a gépi kódoláson kívül másként is kódolhatjuk. 


Nézzük az előbbiekben említett példánkat (A nyomtatása). Ebben az esetben 
felírhatjuk: 


169165 azt jelenti, közvetlenül töltsd be az akkumulátorba az A-t; 
3214.2104-255 aztjelenti, ugorj ahhoz az alprogramhoz, amelyik a 65490-es 
tárolóhelynél kezdődik. 


Vagy röviden: 


LDA dt "A" 
JSR 65490 
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Ezután egy olyan program írásához fognánk hozzá, amely ezeket a rövidítése- 
ket gépi kódra fordítaná. Ezt a munkát érdemes elvégezni ahhoz, hogy a gépi 
kódú karaktersorozatokkal ne legyen több gondunk. 


Ezeket a rövidítéseket mmnemonikus kódoknak nevezik, és az ezekből felépített 
programot hívják assembler nyelvű programnak. Annak a programnak pedig, 
amely egy assembler nyelvű programot gépi kódú programmá tud alakítani, 
ASSEMBLER a neve. Erre később majd még visszatérünk. 


Az assembler nyelvű fordítóprogram azonban még mindig eléggé áttekinthetet- 
len. Minthogy azonban azt akarjuk megtanulni, hogyan működik a compiler, és 
ráadásul a számítógépünk egyik BASIC alkotórésze sem működésképtelen, 
írjuk tehát fordítóprogramunkat a rendelkezésünkre álló legkényelmesebb 
nyelven, vagyis BASIC-ben! 
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1.2 A compilerek felépítése 


Amint azt láttuk, a compilernek az a feladata, hogy egy programot valamilyen 
meghatározott nyelvről gépi kódba ültessen át. 


Vizsgáljuk meg, milyen feladatokat kell itt elvégezni. A feladatok négy területre 
oszthatók: 


1) lexikális elemzés; 

2) szintaktikai elemzés; 
3) szemantikai elemzés; 
4) kódgenerálás. 


A compilerek felépítésénél ugyanúgy kell eljárnunk, mint a programozás során 
mindenütt, ha egy komplex feladatot kell megoldanunk. A feladatot sok kis 
részfeladatra osztjuk fel, amelyeket könnyebb áttekinteni és programozni. 
A feladatok felsorolásánál az elemzés szó háromszor is előfordult, míg a 
generálás csak egyszer (generáláson a gépi kódú, ill. ASSEMBLER program 
létrehozását értjük). Az első három rész feladata az, hogy a programban 
hibakeresést végezzen és megszerezze azokat az információkat, amelyek 
szükségesek ahhoz, hogy a gépi kódú, ill. ASSEMBLER programot létre lehes- 
sen hozni. 


1) Lexikális elemzés 
A lexilgális elemzés során a lefordítandó programot a legkisebb értelemhordo- 
zó egységekre, szavakra bontjuk, és ellenőrizzük, hogy az előforduló szavak 
az adott nyelv megengedett alapkarakter-készletébe tartoznak-e. Ezt a követ- 
kező mondattal mutatjuk be: 

Az elefánt a zsákbanfutást gyakorolja. 
A lexikális elemzés során a mondatot felbontjuk: 


Az / elefánt / a / zsákbanfutást / gyakorolja. 


Minthogy minden egyes szó a magyar nyelvben használatos, a mondat lexikális 
szempontból helyes. 


2) Szintaktikai elemzés E 
A szintaktikai elemzés azt vizsgálja, hogy mondatunk a szintaktikai szabályok 
szerint helyes-e. Mondatunk kétségtelenül helyes. A programnyelveknél ez azt 
jelenti, hogy a programunk elemei a nyelv jelkészleteiből a szintaktikai szabá- 
lyoknak megfelelően vannak-e képezve. 


Példa egy szintaktikailag hibátlan BASIC programra: 


10forj—1to 10 
20fori—1to 10 
30 print j, i 

40 next j 

50 next i 

60 end 


Ez a program szintaktikailag hibátlan ugyan, de van-e értelme? 


3) Szemantikai elemzés 


A BASIC program szemantikai elemzésénél meg kellene állapítanunk, hogy a 
ciklusok rosszul vannak összekapcsolva, a 40-es és az 50-es sort fel kellene 
cserélnünk ahhoz, hogy futtatható programot kapjunk. 


Visszatérve mondatunkhoz: nincs értelme, mivel az elefántok nem tudnak 
zsákbanfutni. 


4) Kódgenerálás 


Feltéve, hogy programunk az eddigi ellenőrzések alapján helyes, gépi kódra 
fordítandó. Gyakran azonban a programot egy ún. köztes kódba fordítják le. Ezt 
a köztes kódot a mikroprocesszor ugyan nem érti meg, de lehet egy gyors 
interpretert szerkeszteni, amely azután ezt a köztes kódot értelmezi. 


Programunkból először egy assembler nyelvű programot készítünk, amelyet 
azután az ASSEMBLER gépi kódra le tud fordítani. Ennek megvan ugyan az a 
hátránya, hogy a fordítási idő hosszabb lesz, de a compiler készítést tanuló 
számára különösen előnyös, mivel; 


a) kényelmesen nyomon követhetjük, hogy a programunk milyen gépi kódú 
utasításokká fordítódik le; 


b) a kódgenerálási eljárások sokkal áttekinthetőbbek lesznek. 


Meg kell még jegyezni azt is, hogy számunkra egyetlen felismerés sem vész 
el, mert ha értjük, hogy a mellérendelt ASSEMBLER hogyan működik, akkor 
biztosan nem okoz problémát az sem, hogy a kódgenerálást úgy alakítsuk át, 
hogy az közvetlenül gépi kódú program legyen. Ízelítőül egyenlőre elégedjünk 
meg ennyivel. 


Végezetül még megjegyezzük, hogy egy compilert természetesen sokfélekép- 
pen meg lehet írni, de az alapfeladatok mindig ugyanazok. Itt is érvényes az 
a szabály, hogy ha az alapfeladatot megértettük, akkor azok különböző megje- . 
lenési formáit is fel tudjuk majd ismerni. 
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2. A PROGRAMNYELVÜNK 


2.1 Bevezetés 


Ebben a fejezetben áttekintést szeretnénk adni arról a nyelvről, amelyhez a 
compilert készítjük. Minthogy ezt a nyelvet szabadon választhatjuk, ezért olyant 
kell készítenünk, amely céljainknak legjobban megfelel. 


Olyan nyelvre van szükségünk, amely jól áttekinthető, hogy így a compiler 
könnyen kezelhető legyen. Szeretnénk egyúttal a programnyelvek fejlődésé- 
ben megfigyelhető tendenciákat is követni, ezért egy blokkszerkezetüűt válasz- 
tottunk. Az alapvető lehetőségeket úgy válogattuk össze, ahogyan azok minden 
modern programnyelvben megtalálhatóak. 


A nyelvet MINIATUR-nak neveztük el. Ez a nyelv tartalmazza a programnyelvek 
alapjait és könnyen bővíthető. 


Nos, mit tud a MINIATUR? 


A MINIATUR program egy főprogramból, és szükség szerint alprogramokból 
áll. Ahhoz, hogy a számítógéppel kapcsolatot tudjunk kialakítani, az adatok ki- 
és bevitelére, valamint a szövegek és a vezérlőjelek képernyőn és nyomtatón 
való megjelenítésére van szükségünk. 


A számításokat a MINIATUR lebegőpontos aritmetikával végzi, és lehetőségünk 
van az elemi függvények, pl. a szinusz, a koszinusz és a logaritmus kiszámítá- 
sára is. 


A program futását ciklusokkal, feltételes utasításokkal és ugrásokkal vezérel- 
hetjük. 


Ezek elegendőek ahhoz, hogy egy compiler működését megvilágítsák. A nyel- 
vet úgy építettük fel, hogy a felhasználók minden nehézség nélkül továbbfej- 
leszthessék. Aki pl. a lebegőpontos aritmetikát megértette, annak nem lesz 
nehéz az egészszám-aritmetikát is kidolgozni, mivel ez elvileg már semmiféle 
új ismeretet nem tételez fel. 


A következő fejezetek elolvasása után láthatjuk majd, hogy a MINIATUR nyel- 
ven egészen jó programok írhatók. 
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2.2 A főprogram 


A MINIATUR-ban írt programok felépítésére nézzük az első mintapéldánkat! 
Mintapélda: kezdés 


100 programm kezdés ist 

110 — — 

120 — -— Itt deklaráljuk később azokat a változókat, 
130 - — amelyeket programjaink használni 


140 — -— fognak 

150 beginne 

160 — — 

170 -— -— Ide kerülnek a végrehajtandó 
180 — — utasítások 

190 — — 

200 leer. 


210 pende kezdés. 


A MINIATUR-ban ez a legkisebb program. Neve kezdés, ez megjelenik a prog- 
ram elején és a végén. Programunk a programm kulcsszóval kezdődik. 


Mik a kulcsszavak? 


A kulcsszavak olyan szavak, amelyek egy nyelvben különleges szerepet tölte- 
nek be, és meghatározott jelentésük van. A felhasználó ezt a jelentést nem 
tudja megváltoztatni és ezeket a szavakat csak az előre meghatározott jelenté- 
süknek megfelelően szabad használnia. A kulcsszavakkal építjük fel progra- 
munk vázát, és ezt közöljük a fordítóval. A programm szó itt azt jelenti, hogy 
egy főprogram kezdődik. A programm után következik a program neve, ame- 
lyet szabadon választhatunk. A programok nevét programkarakternek hívjuk. 


Az alábbiakban felsoroljuk a MINIATUR programnyelv 49 kulcsszavát, amelye- 
ket természetesen a programokban nem fordítottuk le, de a következő táblázat- 
ban a kulcsszavak magyar jelentését tájékoztatásul megadtuk. 


(0) — addiere összeadás 
(1) — ausgabegeraet kivitel 
(2) — ausgang kilépés 
(3) — beginne kezdés 
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bilde 
cuspalte 


cuzeile 


dann 
durch 
dividiere 
fliess 
hintergrund 
hole 
ist 
leer 
mit 
multipliziere 
nach 
pende 
potenziere 
programm 
rahmen 
rufe 
schrift 
schirmfrei 
schleife 
sende 
sonst 
springe 
sprungmarke 
subtrahiere 
ueber 
uebertrage 
uende 


unterprogramm 


von 
vorschub 
wende 
wenn 


képzés 

kurzor a megfelelő oszlopba 
(kurzoroszlop) 

kurzor a megfelelő sorba 
(kurzorsor) 

akkor 

osztva 

osztás 

lebegőpontos változó 
háttér 

bevitel 

van 

üres 

szorozva 

szorzás 

(-ba, -be) eredménye 
a program vége 
hatványozás 

program 

keret 

hívás 

írás 

képernyőtörlés 

ciklus 

ciklus vége 

különben 

ugrás 

ugrási cím 

kivonás 

az alprogram kezdete 
értékadás; az értékek átvitele 
az alprogram vége 
alprogram 

-ból, -ből 

eltolás 

a feltételes ciklus vége 
ha 


VAS 


zeige 
zeigez 
zeigeas 
zu 
fuer 


bis 


wiederhole 


kiírás (szöveg és változó) 

kiírás soremeléssel 

kiírás ASCII kódban 

plusz 

a paraméteres ciklusutasítás értékadá- 
sának kezdete 

-ig (a paraméteres ciklusutasítás érték- 
adásának vége) 

a paraméteres ciklusutasítás kezdete 


MELYEK A MINIATUR AZONOSÍTÓI? 


A felhasználó által szabadon választható azonosítók, pl. a programok, az 
alprogramok, a ciklusok és a változók stb. nevei. 

Az azonosítók maximum 80 karakter hosszúságúak lehetnek, és csak betűket 
tartalmazhatnak. 

A név után az ist kulcsszó következik. Az ist és a beginne kulcsszavak közé 
helyezzük el a programunkban szereplő változók azonosítóit. 


A MINIATUR-ban a megjegyzés sorokat két egymást követő mínuszjellel kezd- 
jük. A megjegyzések egy egész sort foglalnak el. A 110-estől a 140-esig, a 
160-astól a 190-esig és a 210-es sorok tehát megjegyzés sorok. 


A MINIATUR programokban a sorszámok csak arra valók, hogy a felhasználó 
jobban eligazodjon, és hogy a programokat a C 64-esbe beépített editorral 
(szerkesztő) hozhassa létre. Később a program fordításánál a hibás sorok 
sorszáma megjelenik, és így az jobban követhető. 


A MINIATUR programok írásához kis- és nagybetűket egyaránt használhatunk. 
A kulcsszavakat és az azonosítókat mindig kisbetűkkel írjuk. 


A beginne és a pende kulcsszavak közé a végrehajtandó utasításokat fogjuk 
majd írni. Egy logikailag összetartozó utasítássort blokknak nevezünk. A blokk- 
nak legalább egy utasítást tartalmaznia kell. Ha még nem tudjuk, hogy egy adott 
blokk milyen utasításokból fog állni, akkor üres utasítást iktatunk be. Az üres 
utasítást a MINIATUR-ban /eer-nek nevezzük. 


A MINIATUR-ban az utasításokat, a programokat és az alprogramokat ponttal 
zárjuk le. 


A pende után még egyszer ki kell írni a program nevét és utána pontot kell 
tenni. 


A kezdés nevű program megfelel a MINIATUR programok feltételeinek. Ha 
lefordítanánk gépi nyelvre, hatására nem történne semmi. 


Még egyszer felhívjuk a figyelmet arra, hogy a MINIATUR programokban a 
sorszámoknak nincs jelentősége. Az előző programot például a következőkép- 
pen is írhattuk volna: 


1 kezdés programm ist beginne leer pende kezdés 


Ez természetesen nem szerencsés felírás, mivel így egyáltalán nem látható a 
program szerkezete. 
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2.3 A szövegkiírás 


Szövegek kiírásához a programok eredményeinek megfelelő formában való 
megjelenítésére van szükség. 


A MINIATUR-ban erre két lehetőség van: 


zeige "karaktersor". 
zeígez "karaktersor". 


A karaktersort a megfelelő billentyűk lenyomásával állítjuk elő. A karaktersor 
előtt és után idézőjel áll. 


Ezeket a parancsokat ponttal zárjuk le. Az utasításokat a zeige vagy a zeigez 
kulcsszavakkal kezdjük. A karaktersor mindkét parancs esetén a pillanatnyi 
kurzor állásnál jelenik meg. A zeige parancs alkalmazása után a kurzor a 
következő mező elejére, a zeigez parancs hatására pedig a következő sor 
elejére kerül; azaz egy sort is emel. Alapesetben a kivitel a képernyőre törté- 
nik. A nyomtatóra való kivitelt egy későbbi fejezetben ismertetjük. 


Nézzünk egy példát a szövegek kiírására! 
Mintapélda: kiírás 


100 programm kiírás ist 
110 — — 

120 — — 

130 beginne 

140 — — 

150 zeigez "mintapélda". 
160 zeige "szövegek". 
170 zeige "kiírására". 
180 — — 

190 pende kiírás. 


A program hatására megjelenik a mintapélda, a következő sorban pedig köz- 
vetlenül egymás után a szövegek és a kiírására karaktersorozat. 
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2.4 A kiírás vezérlése 


A kiírást szeretnénk érzékenyebben vezérelni, mint ahogy azt a zeíge és a 
zeigez utasítás lehetővé teszi. A kurzort a képernyő tetszőleges helyére akar- 
juk állítani, a képernyőt törölni szeretnénk, vagy tetszőleges sortávolságot 
akarunk beállítani. 


A 
vorschub 


paranccsal végezhetjük el egy sor eltolását. Ha az utolsó sorban zeige pa- 
ranccsal vittünk ki, akkor a vorschub hatására a kivitel egy új, következő sorban 
megy végbe. Ha előzőleg zeigez paranccsal vittünk ki, akkor a vorschub hatá- 
sára üres sor jön létre. 


A képernyőt 
schirmfrei 
paranccsal törölhetjük. 


A kurzort 
cuspalte kurzoroszlop. 


paranccsal vihetjük tetszőleges helyre. Az oszlop szó helyére az 1-es és a 
40-es közötti egész számot kell írni. A kurzort az alábbi utasítással helyezhetjük 
a 25. oszlopba: 


cuspalte 25. 
A kurzort 
cuzeile kurzorsor. 


paranccsal vihetjük adott sorba. A sor értéke az 1-es és a 24-es közé eső egész 
szám. A cuzeile 15. parancs hatására tehát a kurzor a 15. sorba kerül. 


Vezérlőkódok segítségével a képernyőn a kiírást tetszőlegesen szabályozhat- 
juk. A kurzort pl. eggyel jobbra vihetjük, ha a 29-esnek megfelelő ASCII kódot 
használjuk. Ez a 


zeigeas ASCII kód. 
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parancs hatására megy végbe. Az ASCII kódnak a 0 és a 255-ös közé kell esnie. 
Az egyes kódok jelentését a számítógép kézikönyvében megtalálhatjuk. Né- 
hány fontosabbat felsorolunk közülük. 
3 stop 

10 soremelés 

17 kurzor le 

19 kurzor a bal felső sarokba 

20 sortörlés 

29 kurzor jobbra 

32 szóköz 
145 kurzor fel 
147 képernyőtörlés 

148 egy karakter beszúrása 

157 kurzor balra 


Mintapélda: kiírásb 


1000 programm kiírásb ist 

1010 — — 

1020 — — 

1030 — — Ez a program törli a képernyőt, a 
1040 — — kurzort az 5. sor 5. oszlopára 
1050 — — állítja, 

1060 — — kiírja az "írás a képernyőre" mondatot, 
1070 — -— két üres sort hagy 

1080 — - és még egyszer kiírja az előbbi mondatot. 
1090 — — 

1100 — — 

1110 beginne 

1120 — — 

1130 schirmfrei. 

1140 — — 

1150 cuzeile 5. cuspalte 5. 

1160 — — 

1170 zeigeas 18. 

1180 — — 

1190 zeige "írás a képernyőre". 

1200 — — 

1210 zeigeas 146. 

1220 — — 

1230 vorschub. vorschub. vorschub. 

1240 — — 

1250 zeigez "írás a képernyőre". 

1260 — — 

1270 — — 

1280 pende kiírásb. 
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2.5 A kivitel a nyomtatóra 


Ha egy program listáját papíron akarjuk megőrizni, akkor lehetőségünk van 
arra, hogy a képernyő helyett a nyomtatót használjuk. Ilyenkor az 


ausgabegeraet nyomtató. 


utasítást kell adni. 
Ha a kivitelt ismét a képernyőre akarjuk irányítani, akkor a 


ausgabegeraet képernyő. 


utasítást adjuk. 

Arra kell azonban vigyáznunk a kivitel vezérlésénél, hogy kétszer egymás után 
ne nevezzük meg ugyanazt a perifériát, mert egy adatátviteli csatornát ebben 
a formában csak egyszer nyithatunk meg. 


Mintapélda: nyomtató 


1000 programm nyomtató ist 

1010 — — 

1020 — — 

1030 — - Ez a program a nyomtatóra írja a követ- 
1040 — —- kező mondatot "most nyomtatunk" , 
1050 — — ezután a képernyőre írja az 

1060 — — "ismét a képernyőre írunk" mondatot. 
1070 — — 

1080 — — 

1090 beginne 

1100 — — 

1110 ausgabegeraet nyomtató. 

1120 — -— 

1130 zeigez "most nyomtatunk" . 

1140 — — 

1150 ausgabegeraet képernyő. 

1160 — — 

1170 — — 

1180 zeigez "ismét a képernyőre írunk". 
1190 — — 

1200 — — 

1210 pende nyomtató. 
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2.6 A képernyő színének megválasztása 


A képernyő keretét, a hátteret és az írás színét a lehetőségeken belül tetszés 
szerint választhatjuk. 


A keret színének meghatározására a következő parancsokat használhatjuk: 


rahmen fekete. 
rahmen fehér. 
rahmen türkiz. 
rahmen piros. 
rahmen lila. 
rahmen kék. 
rahmen sárga. 
rahmen narancs. 
rahmen barna. 
stb. 


A háttér színét a következő parancsokkal választhatjuk meg: 


hintergrund fekete. 
hintergrund fehér. 
hintergrund türkiz. 
hintergrund piros. 
hintergrund lila. 
hintergrund kék. 
hintergrund sárga. 
hintergrund narancs. 
hintergrund barna. 
stb. 


Az írás színének megválasztása pedig az alábbi parancsokkal hajtható végre: 


schrift fekete. 
scehrift fehér. 
scehrift piros. 
sehrift zöld. 
schrift kék. 
schrift sárga. 
stb. 
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Mintapélda: szín 


100 programm szín ist 


130 - - Ez a program az alábbi színeket jelöli ki: 
140 -— -— a háttér fekete, 

150 — - a keret fehér, 

160 -— - az írás fehér. 

170 — — f 

180 - — A 12-es sor 17. oszlopába 

190 -— — kiírjuk a "szín" szót, 

200 -— -— a háttér színét fehérre, 

210 - -— a keret színét feketére változtatjuk. 


240 beginne 

250 — — 

260 schirmfrei. 

270 — — 

280 hintergrund fekete. 

290 rahmen fehér. 

300 schrift fehér. 

310 -— — 

320 cuzeile 12. cuspalte 17. 
330 zeigeas 18. zeigez "szín". zeigeas 146. 
340 — — 

350 hintergrund fehér. 

370 rahmen fekete. 

380 — — 

390 pende szín. 
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2.7 A változók meghatározása 


A programban szereplő változókat a program elején meg kell határozni. Fordí- 
tóprogramunkban lebegőpontos aritmetikát használunk. Ezért a változókat 
csak ennek megfelelően határozhatjuk meg. 


A lebegőpontos változók - —1.70141183E 1 38 és -- — 2.93873588E — 39 közötti 
értékeket vehetnek fel. 


A meghatározás kétféleképpen lehetséges. 

1) Egy lebegőpontos változó meghatározásánál: 
fliess változónév. 

2) Több lebegőpontos változó meghatározása esetén: 
fliess változónév 1, változónév 2, ... 

Mintapélda: definíció 


100 programm definíció ist 

110 — — 

120 — — 

130 — — otto, enno, benno, változókat 
140 - - lebegőpontos változóként határozzuk meg. 
150 — — 

160 — — 

170 fliess otto. 

180 fliess benno,enno. 

190 — — 

200 — — 

210 beginne 

220 — — 

230 leer. 

240 — — 

250 pende definíció. 
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2.8 Az adatok be- és kivitele 


A változók meghatározása után ismerkedjünk meg a változók értékének be- és 
kivitelével. 

Kivitelre a már ismert két parancsot: a zeige és a zeigez parancsokat használ- 
juk, azzal a különbséggel, hogy a változónevet nem kell idézőjelbe tenni. 


Zzeige változónév. 
zeigez változónév. 


A fenti két parancs között a különbség az, hogy a zeigez alkalmazása esetén 
a kivitel egy új, a következő sor elejére kerül. 


A bevitelt a 
hole változónév. 
paranccsal végezzük. 


Az adatokat billentyűzetről visszük be. A hole parancs hatására egy kérdőjel 
jelenik meg a képernyőn, és beírhatunk egy lebegőpontos számot. 
A bevitelt a RETURN billentyű lenyomásával fejezzük be. 


Mintapélda: adatbevitel 
100 programm adatbevitel ist 


130 - - Ez a program megkérdezi az ön életkorát 
140 -— — és kiírja azt. 

150 — — 

160 — — 

170 fliess kora. 

180 — — 

200 beginne 

210 — — 

220 schirmfrei. 

230 — — 

240 zeige "kora:". 

250 hole kora. vorschub. 
260 zeige "Ön". 

270 zeige "kora". 

280 zeige "éves". 

290 — -— 

300 — — 


310 pende be. 29 


2.9 Az értékek megváltoztatása 


Most már meg tudjuk határozni a változókat, amelyeknek a billentyűzetről 
értékeket adhatunk. Ezeket az értékeket ki is vihetjük. Már csak az a lehetősé- 
günk hiányzik, hogy az értékeket egy programon belül a beviteltől függetlenül 
megváltoztathassuk. 


Nagyon egyszerű szerkezeteket fogunk használni, amelyek a compiler prog- 
ram során jól követhetőek lesznek. A bővítésnek ezek után már semmi akadá- 
lya. Először csak pozitív értékek adását (hozzárendelését) engedjük meg. 
Adjunk a változónak lebegőpontos értéket: 

uebertrage lebegőpontos szám nach változónév. 

uebertrage 3.4e-1- 17 nach otto. 
Az utasítás végrehajtása után az otto változó értéke 3.4e tt 17 lesz. 
Vigyük át az egyik változó értékét egy másik változóba: 

uebertrage változónév nach változónév. 

uebertrage otto nach enno. 
Fenti utasítás után az enno változó értéke azonos lesz az otto változó értékével. 
Két változó értékeinek összeadása: , 

addiere változónév Zu változónév nach változónév. 

addiere otto zu enno nach otto. 
Eszerint otto új értéke otto és enno értékének összegével lesz egyenlő. 
Egyik változó kivonása a másikból; 

subtrahiere változónév von változónév nach változónév. 


subtrahiere otto von benno nach enno. 
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Enno értékét tehát úgy kapjuk meg, hogy a benno értékéből az otto értékét 
kivonjuk. 


Két változó szorzása: 
multipliziere változónév mit változónév nach változónév. 
multipliziere benno mit enno nach enno. 


Benno értékét enno értékével szorozzuk és ezt az értéket az enno-ban helyez- 
zük el. 


Változók osztása: 
dividiere változónév durch változónév nach változónév. 
dividiere otto durch benno nach enno. 
Tehát enno értékét otto és benno értékének hányadosa adja meg. 
Két változó hatványozása: 
potenziere változónév mit változónév nach változónév. 
potenziere benno mít enno nach otto. 
Eszerint otto értéke nem lesz más, mint benno értékének az enno-dik hatványa. 
Mintapélda: aritmetika 


1000 programm aritmetika ist 

1010 — — : 

1020 — — 

1030 - - Ez a program a lebegőpontos aritmeti- 
1040 -— - kát mutatja be. 

1050 — - 

1060 — — 

1070 -— - fliess monika, tamás, cecília. 
1080 - - fliess benno, enno, otto. 
1090 — -— 

1100 — — 

1110 beginne 

1120 — — 

1130 — -— 

1140 schirmfrei. vorschub. 
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1150 zeigez "a lebegőpontos aritmetika bemutatása". 
1160 vorschub. 

1170 — — 

1180 uebertrage kettő nach monika. 

1190 uebertrage öt nach tamás. 

1200 uebertrage tamás nach cecília. 

1210 — — 

1220 — — 

1230 zeige "monika —". zeigez monika. 
1240 zeige "tamás —". zeigez tamás. 

1250 zeige "cecilia —". zeigez cecília. 
1260 — — 

1270 — — 

1280 addiere monika zu tamás nach benno. 
1290 vorschub. 


1300 zeige "2 4 5 —". zeigez benno. 

1310 — — 

1320 subtrahiere cecilia von benno nach enno. 
1330 zeige "7 — 2 —". zeigez enno. 

1340 — — 


1350 multipliziere tamás mit monika nach otto. 
1360 zeige "5 r 2 —". zeigez otto. 


1370 — — 

1380 dividiere cecilia durch monika nach enno. 
1390 zeige "5 / 2 —". zeigez enno. 

1400 — — 


1410 potenziere monika mit tamás nach benno. 
1420 zeige "21 5 —". zeigez benno. 

1430 — — 

1440 — — 

1450 pende aritmetika. 


2.10 A függvények 


Ebben a fejezetben azokat a numerikus függvényeket ismertetjük, amelyeket 
a compilerbe be akarunk építeni. 


Az utasítás általános alakja: 
bilde függvényazonosító von változónév nach változónév. 
vagy: 
bilde függvényazonosító von változónév. 
A két utasítás között az a különbség, hogy az első esetben a kiszámított értéket 
ahhoz a változóhoz rendeljük hozzá, amelynek neve a nach kulcsszó mögött 


áll, míg a második esetben a kiszámított értéket az eredeti változóhoz, vagyis 
ahhoz rendeljük hozzá, amelyből a függvény értékét kiszámítottuk. 


A következőkben a függvény szó után megadjuk a függvények azonosítóit, majd 
pedig röviden megmagyarázzuk az utasítást. Javasoljuk az olvasónak, hogy 
lapozzon a függvények mintapéldához, és olvassa a következőket azzal párhu- 
zamosan, ott minden függvényre példát is talál. 

Függvény: absolut (abszolút érték) 

A mennyiség abszolút értékét képezi. 


Függvény: actangens (árkusz tangens) 


Az érték arkusz tangensét számítja ki. Az értéket ívmértékben (radiánban) kell 
megadni. 


Függvény: cosinus (koszinusz) 

Az ívmértékben megadott érték koszinuszát számítja. 

Függvény: exponent (exponenciális) 

Az utasítás az e (e— 2.718 271 83) értéknek a változó értékére emelt hatványát 


adja meg. 
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Függvény: integer (egészre kerekítés) 

Ezt a függvényutasítást akkor használjuk, ha egy lebegőpontos számot kerekíi- 
tett egész számmá akarunk átalakítani. Így pl. integer 3.45 egyenlő 3-mal és 
integer 4.6 egyenlő 5-tel. 

Függvény: logarithmus (logaritmus) 

Az utasítás a változó értékének természetes (e alapú) logaritmusát képezi. 


Függvény: speicherwert (tárérték) 


Ebben a függvényutasításban a változó egy tárhely címét adja meg, és az ezen 
helyen tárolt értéket a program kiolvassa. 


Függvény: zufall (véletlenszám-sorozat) 
Ez a függvényutasítás 0 és 1 közötti véletlen számokat generál. A véletlen 
számok a változók értékétől függően képződnek. Ha a változó értéke negatív, 
akkor azonos negatív érték esetén mindig ugyanazok a véletlenszám-soroza- 
tok képződnek. Ha a változó értéke nulla vagy annál nagyobb, akkor mindig új 
számok képződnek. 
Függvény: vorzeichen (előjel) 
A függvény a következő értékeket adja: 

—1, ha a változó értéke nullánál kisebb: — 

0, ha a változó értéke nullával egyenlő; 

41, ha a változó értéke nullánál nagyobb. 
Függvény: sinus (szinusz) 
A függvényutasítás az ívmértékben megadott argumentum szinuszát számolja. 


Függvény: guadratwurzel (négyzetgyök) 


Az argumentum négyzetgyökét számítja ki. A beadott értéknek pozitívnak kell 
lennie. 


Függvény: tangens (tangens) 


Az ívmértékben megadott érték tangensét számítja ki. 
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Mintapélda: függvények 


1000 programm függvények ist 

1010 — — 

1020 — — 

1030 — — Ez a program a MINIATUR programnyelv 
1040 - - függvényeinek 

1050 - -— használatát mutatja be. 

1060 — — 

1070 — — 

1080 fliess a, b, c, d, e, f, g. 

1090 fliess pinegyed. 

1100 — — 

1110 beginne 

1120 — — 

1130 uebertrage 4 nach a. 

1140 uebertrage 4 nach b. 

1150 uebertrage 3.1415 nach c. 

1160 dividiere c durch b nach pinegyed. 
1170 — — 

1180 schirmfrei. 

1190 zeigez "függvények". 

1200 — — 

1210 vorschub. 

1220 bilde integer von c nach d. 

1230 — — 

1240 - -— c kerekített egész szám értékét kiszámí- 
1250 — — tottuk és d-ben tároltuk. 

1260 -— -— a nem változott. 


1270 — -— 

1280 zeige "c—". zeigez c. 
1290 zeige "d—". zeigez d. 
1300 — — 

1310 bilde absolut von a. 
1320 — — 


1330 - - E formánál "a" tartalma 

1340 — — megváltozott. 

1350 — — 

1360 zeige "abszolút érték 4 —". zeige a. 

1370 — — 

1380 — — 

1390 bilde actangens von pinegyed nach e. 

1400 zeige "árkusz tangens pinegyed — ", zeigez e. 
1410 — — 

1420 bilde cosinus von pinegyed nach e. 
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1430 zeige "koszinusz pinegyed —". zeigez e. 
1440 — — 


1450 bilde exponent von b nach e. 

1460 bilde "exponenciális 4 —". zeigez e. 
1470 — — 

1480 bilde integer pinegyed nach e. 

1490 zeige "egész részre kerekítés pinegyed —". zeigez e. 
1500 — — 

1510 bilde logarithmus von b nach e. 

1520 zeige "logaritmus 4 —". zeigez e. 
1530 — — 

1540 bilde speicherwert von b nach f. 

1550 zeige "4. tárhely tartalma —". zeigez f. 
1560 — — 

1570 bilde zufall von a nach g. 

1580 zeige "véletlen szám a —". zeigez g. 
1590 — — 

1600 bilde vorzeichen von b nach g. 

1610 zeige "előjel 4 —". zeigez 9. 

1620 — — 

1630 bilde sinus von pinegyed nach f. 

1640 zeige "szinusz pinegyed —". zeigez f. 
1650 — — 


1660 bilde guadratwurzel von b nach g. 
1670 zeige "négyzetgyök 4 —". zeigez g. 
1680 — — 

1690 bilde tangens von pinegyed nach f. 
1700 zeige "tangens pinegyed —". zeigez f. 
1710 — — 

1720 zeigez "jó?" . 

1730 — — 

1740 — — 

1750 pende függvények. 


2.11 A feltételes szerkezetek 


Eddig nem volt szó olyan lehetőségekről, hogy miképp lehet programunkban 
az egyes utasításokat átugrani. Most azt szeretnénk ismertetni, hogyan dönt- 
hetjük el az egyes változók értékének függvényében, hogy mely utasításokat 
kell végrehajtani. Ehhez egy programrészletet két ágra bontunk, és a két ág 
egyikét vagy másikát hajtjuk végre aszerint, hogy a változók aktuális értékei 
valamely meghatározott összehasonlító feltételnek eleget tesznek-e vagy sem. 


Formálisan a következőkről van szó: 


wenn feltétel leírása 
dann 


— — utasításblokk 1 


sonst 


— — utasításblokk 2 


wende. 
A feltétel felépítése a következő: 
változónév operátor változónév 


Operátorként a következőket használhatjuk: 


egyenlő 

sz nem egyenlő 
kisebb 

kisebb egyenlő 
nagyobb 
nagyobb egyenlő 


—- 


8 
az 
2 
- 
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Lássunk mindjárt egy példát; 


wenn otto — enno 
dann 
zeigez "otto egyenlő enno". 


sonst 


zeigez "otto nem egyenlő enno". 


wende. 


Ebben a példában otto és enno értékét hasonlítjuk össze. Ha a két érték 
egyenlő, akkor a képernyőn az otto egyenlő enno, ha a két érték nem egyenlő, 
akkor az otto nem egyenlő enno szöveg jelenik meg. A program ezután a 
wende kulcsszó utáni utasításnál folytatódik. 


A wenn dann sonst wende utasítássorozat így két utasításblokkot tartalmaz, ill. 
köt össze. Mindkét blokk utasítások lezárt sora. A MINIATUR-ban minden 
blokknak legalább egy utasítást tartalmaznia kell. A blokkokat összekötő utasí- 
tásnak megvan a maga bemenete és kimenete. A wenn dann sonst wende 
utasítássorozat bemenete, azaz nyitása a wenn, és kímenete, azaz lezárása a 
wende. 


A blokkokba szervezett nyelvek egyik előnye az, hogy a logikailag összetartozó 
utasításokat gyorsan fel lehet ismerni. 


Minthogy célunk az, hogy egy compiler programot megértsünk, ill. megírjunk, 
nagyon fontos, hogy kellő számú mintapéldánk legyen. Ezek a fordító lehetősé- 
geit bemutatják és így megérthetjük azt is, hogy mit csinál a compiler egy 
utasítás hatására. A könyvben közölt mintapéldák tehát egyúttal tesztprogra- 
mok is, amelyeket elsőként kell lefordítani, miután compilerünket elkészítettük. 
Elvben végtelen sok program írható a MINIATUR programnyelven, így érthető, 
hogy csak a legfontosabb lehetőségeket tesztelhetjük. Jogos az a remény, hogy 
a compiler akkor is hibátlanul működik, ha pl. két utasítást felcserélünk. Amint 
az eddigi mintapéldákon észrevehettük, a tesztorogramokatis úgy kell megírni, 
hogy a hibák a program végrehajtásakor előjöjjenek. 


Mutassunk be erre egy példát! 


A programnak azt kell eldöntenie, hogy a beadott szám páros vagy páratlan-e. 
Ennek megfelelően vagy a szám páros, vagy a szám páratlan kiírásnak kell 
megjelennie a képernyőn. 


Annak eldöntésére, hogy a program fordítása helyes és az hibátlanul is műkö- 
dik, jó lehetőség pl. a számnak és a következő mondatnak a kiírása: 
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zeige "szám". zeigez "a szám páros." . 


vagy 
zeige "szám". zeigez "a szám páratlan." . 
Mintapélda: páros vagy páratlan 


1000 programm páros vagy páratlan ist 
1010 — — 

1020 — — 

1030 - -— Ez a program a billentyűzetről 
1040 - - egy számot kér és 

1050 — — eldönti, hogy a szám páros 
1060 -— — vagy páratlan-e. 

1070 — — 

1080 — — 

1090 fliess szám, pót, kettő, nulla, pótv. 
1100 — - 

1110 beginne 

1120 — — 

1130 schirmfrei. vorschub. uebertrage 2 nach 2. 
1140 — — 

1150 zeige "kérek egy egész számot." . 
1160 hole szám. vorschub. 

1170 — — 

1180 — — 

1190 uebertrage szám nach pót. 

1200 dividiere pót durch kettő nach pót. 
1210 bilde integer von pót. 

1220 dividiere szám durch kettő nach pótv. 
1230 subtrahiere pót von pótv. nach pót. 
1240 — — 

1250 uebertrage 0.0 nach nulla. 

1260 — — 

1270 wenn pót — nulla dann 

1280 — — 

1290 zeige "szám". zeigez "páros." . 
1300 — — 

1310 sonst 

1320 — — 

1330 zeige "szám". zeigez "páratlan." . 
1340 — — . 
1350 wende. 

1360 — — 


1370 pende páros vagy páratlan. 39 


Mintapélda: választás 


1000 programm választás ist 
1010 — — 

1020 — — 

1030 — — Ez a program adott feltételtől 
1040 — — függően a képernyőre vagy a nyomtatóra 
1050 — — egy mondatot ír ki. 
1060 — — 

1070 —— 

1080 fliess teszt, egy. 

1090 — — 

1100 beginne 

1120 schirmfrei. vorschub. 
1130 — — 

1140 zeige "nyomtató (1) / képernyő (2)?". 
1150 hole teszt. 

1160 vorschub. 

1170 uebertrage 1.0 nach egy. 
1180 — — 

1190 wenn teszt — egy dann 
1200 — — 

1210 ausgabegeraet nyomtató. 
1220 zeigez "nyomtató." . 

1230 ausgabegeraet képernyő. 
1240 — — 

1250 sonst 

1260 — — 

1270 zeigez "képernyő." . 

1280 — — 

1290 wende. 

1300 — — 

1310 pende választás. 


Mintapélda: döntésteszt 
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1000 programm döntésteszt ist 


1030 — — Ez a program 
1040 — — a különféle döntési lehetőségeket 
1050 — — teszteli. 


1080 fliess három, négy. 


1090 — — 

1100 beginne 

1110 — — 

1120 schirmfrei. vorschub. 

1130 — — 

1140 uebertrage 3.0 nach három. 
1150 uebertrage 4.0 nach négy. 
1160 — — 

1170 - -— 

1180 zeigez "döntések:". 

1190 — -— 

1200 — — 

1210 wenn három — négy dann 
1220 - -— 

1230 zeigez " — hiba!" . 

1240 — — 

1250 sonst 

1260 — — 

1270 zeigez "— nincs hiba!" . 
1280 - - 

1290 wenn három 3 négy dann 
1300 — — 

1310 zeigez "hiba 5 -nél!". 

1320 -— — 

1330 sonst 

1340 — — 

1350 zeigez "nincs hiba!". 

1360 — — 

1370 wenn három 2 — négy dann 
1380 — — 

1390 zeigez "2 — hiba!". 

1400 — — 

1410 sonst 

1420 — — 

1430 zeigez "2 — nincs hiba!" . 
1440 -— — 

1450 wenn három /— négy dann 
1460 — — 

1470 zeigez "/— nincs hiba!". 
1480 — — 

1490 wenn három —£ négy dann 
1500 — — 

1510 zeigez "nincs hiba €-nél!". 
1520 — - 

1530 wenn három € — négy dann 
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1540 — — 
1550 zeigez 
1560 — — 
1570 sonst 
1580 — — 
1590 zeigez 
1600 — — 


1610 wende. 


1620 — — 
1630 sonst 
1640 — — 
1650 zeigez 
1660 — — 


1670 wende. 


1680 — — 
1682 sonst 
1684 — — 
1690 zeigez 
1700 — — 


1710 wende. 
1720 wende. 
1730 wende. 
1740 wende, 


1750 — — 


Vt ke 


z£ sz 


"— hiba!" 


"sz hiba 


"/z hibal". 


1760 pende döntésteszt. 
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nincs hiba!". 


2.12 A ciklusok 


Ahhoz, hogy egy utasításblokkon többször végig tudjunk futni, ciklusok szerve- 
zésére van szükségünk. 


A MINIATUR-ban ehhez két utasítástípus van: 


1) végtelen ciklus kilépési utasítással; 
2) paraméteres ciklusutasítás. 


1) A végtelen ciklus 


schleife ciklusváltozó ueber 


sende ciklusváltozó. 
A végtelen ciklus egyik változata a következő: 


schleife ciklusváltozó 


— — utasításblokk 


— — sende ciklusváltozó. 


Ez a legegyszerűbb ciklus, mégis ezt használjuk legritkábban. 

Ha egyszer bekerülünk ebbe a ciklusba, akkor a megadott utasítássort — a 
ciklus magját -— addig hajtja végig a program, amíg csak a számítógépet ki nem 
kapcsoljuk. Ennek alkalmazása lehetne pl. az, hogy a számítógép bekapcsolá- 
sakor elkezdődik a végtelen ciklus, a gép parancsot vár a kezelőjétől, majd a 
parancs végrehajtása után a gép ismét visszatér kiindulási pontjához. Az ilyen 
ciklus a számítógépben található legmagasabbrendű műveleti sor és minden 
egyéb műveleti sor ennek a ciklusnak rendelődik alá. 


Ebből a ciklusból azonban nem tudunk kijutni. 
Másik példa a végtelen ciklus alkalmazására. 


A gépnek az a feladata, hogy egymás után minden pozitív egész számot írjon ki. 
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Mintapélda: végtelen 


100 programm végtelen ist 

110 — - 

120 — — 

130 - — Ez a program 

140 — — minden pozitív egész számot 


150 — — kiír. 

160 — — 

170 — — 

180 fliess szám, egy. 

190 — — 

200 beginne 

210 — — 

220 uebertrage 1.0 nach egy. 
230 — — 

240 uebertrage 0.0 nach szám. 
250 — — 

260 schleife egész ueber 

270 — — 

280 zeigez "szám". 

290 — — 

300 addiere egy zu szám nach szám. 
310 — — 

320 sende egész. 

330 — — 


340 pende végtelen. 
Ahhoz, hogy a program csak az első 100 pozitív egész számot írja ki, ki kell 
léptetnünk a végtelen ciklusból, mégpedig akkor, amikor a kiírást abba kell 
hagynia. A kilépés utasítás felépítése a következő: 

ausgang ciklusváltozó wenn feltétel. 
A feltétel felépítését az előző fejezetben már ismertettük, tehát: 


változónév operátor változónév 


Operátorként A feltételes szerkezetek c. fejezetben leírtak használhatóak. 


Ha a feltétel teljesül, akkor a program a megadott nevű ciklus végére ugrik, 
vagyis a program ezután azt az utasítást hajtja végre — ha van ilyen —, amelyik 
a ciklus után következik. Nézzük meg az előbbi példát ezzel a kiegészítéssel! 
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Mintapélda: száz 


100 programm száz ist 


130 - - Ez a program minden 
140 — — pozitív egész számot 
150 — - kiír százig. 

160 — — 

170 — — 

180 fliess szám, egy, száz. 

190 — — 

200 beginne 

210 — — 

220 uebertrage 1.0 nach egy. 
230 — — 

240 uebertrage 0.0 nach szám. 
250 — — 

260 uebertrage 100.0 nach száz. 
280 schleife egész ueber 

290 — — 

300 zeigez "szám". 

310 — — 

320 addiere egy zu szám nach szám. 
330 — — 

340 ausgang egész wenn száz— szám. 
350 — — 

360 sende egész. 

370 — — 

380 pende száz. 


Minden ciklusnak külön nevet kell adni. Ennek előnyei a következők: 


- a program szerkezete világosabbá válik; 

- egymásba szerkesztett ciklusok áttekinthetőbbek lesznek; 

- a kilépési utasítással az egymásba szerkesztett ciklusokból ki is lehet 
lépni. 


Mintapélda: kilépés 


100 programm kilépés ist 

110 -— — 

120 — — 

130 ——- Ez a program az egymásba 
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140 - -— szerkesztett ciklusból való 
150 — - kilépést teszteli. 

160 — — 

170 — — 

180 fliess gudrun, enno, egy. 

190 — — 

200 beginne 

210 — — 

220 uebertrage 1.0 nach egy. 

230 uebertrage 0.0 nach enno. 
240 uebertrage 100.0 nach gudrun. 
250 — — 

260 — — 

270 schleife kívül ueber 


300 schleife belül ueber 

310 — — 

320 — — 

330 zeigez "enno". 

340 — — 

350 ausgang kívül wenn enno — gudrun. 
360 — - 

370 addiere egy zu enno nach enno. 
380 — — 

390 — — 

400 sende belül. 

410 — — 

420 sende kívül. 

430 — — 

440 sende kilépés. 


Itt tehát mind a belső, mind a külső ciklusból kilépünk, ha az enno— gudrun 
feltétel teljesül. 


Egy rövid programot közlünk még, a kilépési utasítás vizsgálatára. 


Mintapélda: kilépésteszt 


1000 programm kilépésteszt ist 
1010 — — 

1020 — — 

1030 — - E program a 

1040 — - kilépési utasítást teszteli. 
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1050 — — 

1060 — — 

1070 fliess gudrun, enno, monika. 
1080 — — 

1090 beginne 

1100 — — 

1105 schirmfrei. vorschub. 

1110 zeigez "teszt". 

1120 vorschub. 

1130 — — 

1140 uebertrage 2.0 nach gudrun. 
1150 uebertrage 2.0 nach monika. 
1160 uebertrage 7.0 nach enno. 

1170 — — 

1180 — - 

1190 schleife ciklusa ueber 

1200 — — 

1210 schleife ciklusb ueber 

1220 — — 

1230 schleife ciklusc ueber 

1240 — — 

1250 schleife ciklusd ueber 

1260 — — 

1270 schleife cikluse ueber 

1280 — — 

1290 schleife ciklusf ueber 

1300 — — 

1310 schleife ciklusg ueber 

1320 — — 

1330 schleife ciklush ueber 

1340 — — 

1350 — — 

1360 ausgang ciklush wenn gudrun /— enno. 
1370 — — 

1380 zeigez "kilépés ciklush hibás.". 
1390 -— — 

1400 sende ciklush. 

1410 — — 

1420 zeigez "kilépés ciklush rendben." . 
1430 — — 

1440 ausgang ciklusg wenn gudrun £ enno. 
1450 — — 

1460 zeigez "kilépés ciklusg hibás.". 
1470 — — 

1480 sende ciklusg. 
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1490 — — 

1500 zeigez "kilépés ciklusg rendben.". 
1510 — — 

1520 ausgang ciklusf ha gudrun X — enno. 
1530 — — 

1540 zeigez "kilépés ciklusf hibás.". 

1550 — — 

1560 sende ciklusf. 

1570 — — 

1580 zeigez "kilépés ciklusf rendben." . 
1590 — — 

1600 ausgang cikluse ha gudrun A — monika. 
1610 — — 

1620 zeigez "kilépés cikluse hibás.". 

1630 — — 

1640 sende cikluse. 

1650 — — 

1660 zeigez "kilépés cikluse rendben." . 
1670 — — 

1680 ausgang ciklusd ha enno 5 monika. 
1690 — — 

1700 zeigez "kilépés ciklusd hibás.". 

1710 — — 

1720 sende ciklusd. 

1730 — — 

1740 zeigez "kilépés ciklusd rendben.". 
1750 — — 

1760 ausgang ciklusc ha enno 5 — monika.. 
1770 — — 

1780 zeigez "kilépés ciklusc hibás.". 

1790 — — ; 

1800 sende ciklusc. 

1810 — — 

1820 zeigez "kilépés ciklusc rendben." . 
1830 — — 

1840 ausgang ciklusb ha gudrun 2 — monika. 
1850 — — 

1860 zeigez "kilépés ciklusb hibás.". 

1870 — — 

1880 sende ciklusb. 

1890 — — 

1900 zeigez "kilépés ciklusb rendben.". 
1910 — — 

1920 ausgang ciklusa ha gudrun — monika. 
1930 — — 


1940 zeigez "kilépés ciklusa hibás.". 
1950 — — 

1960 sende ciklusa. 

1970 -— — 

1980 zeigez "kilépés ciklusa rendben.". 
1990 — — 

2000 zeigez "vége." . 

2010 — — 

2020 pende kilépésteszt. 


A tesztporogramok nagyon könnyen hosszúvá válhatnak; valójában ez a prog- 
ram túlságosan is rövid. Nem próbáltuk ki pl. még azt sem, hogy a ciklus 
összefér-e bizonyos feltételes szerkezetekkel. 


2) A paraméteres ciklusutasítás 


Ha tudjuk, hogy egy bizonyos utasítássorozatnak hányszor kell lefutnia, akkor 
ezt a ciklusutasítást kell választanunk. 


Az utasítás általános formája a következő: 


fuer változónév von változónév bis változónév 
wiederhole 


sende. 


Mintapélda: számlálás 


100 programm számlálás ist 


130 - — Ez a program 1-től 10-ig 

140 — - kiírja a számokat. 

150 — — 

160 — — 

170 fliess index, alsó határ, felső határ. 
180 — — 

190 beginne 

200 — — 

210 uebertrage 1.0 nach alsó határ. 
220 uebertrage 10.0 nach felső határ. 
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230 — — 

240 fuer index von alsó határ bis felső határ wiederhole 
250 — — 

260 zeigez , index". 

270 — — 

280 sende. 

290 — — 

300 pende számlálás. 


Mintapélda: partest 
(Tesztprogram egymásba szerkesztett ciklusokra.) 
1000 programm partest ist 
1010 — — 
1020 — — 
1030—- - Ez a program paraméteres egymásba szerkesztett ciklusokat tesztel. 
1040 — — 
1050 — — Az eredmény 1000 legyen. 
1060 — — 
1070 — — 
1080 fliess indexa, indexb, indexc. 
1090 fliess alsó határ, felső határ, szám, egy. 
1100 — — 
1110 beginne 
1120 — — 
1130 uebertrage 1.0 nach alsó határ. 
1140 uebertrage 10.0 nach felső határ. 
1150 uebertrage 0.0 nach szám. 
1155 uebertrage 1.0 nach egy. 
1160 — — 
1170 — — 
1180 fuer indexa von alsó határ bis felső határ wiederhole 
1190 — — 
1200 fuer indexb von alsó határ bis felső határ wiederhole 
1210 — — 
1220 fuer indexc von alsó határ bis felső határ wiederhole 
1230 — — 
1240 addiere egy zu szám nach szám. 
1250 — — 
1260 sende. 
1270 sende. 
1280 sende. 
1290 — — 
1300 zeigez ,eredmény:". zeigez ,szám." 
1310 — — 
1320 pende partest. 
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2.13 Az átirányító (ugró) utasítások 


Egy programon belül szükségünk lehet arra is, hogy a program meghatározott 
helyen folytatódjék. Ezt ugró utasítással érhetjük el, pl. a BASIC-ben ilyen a 
GOTO utasítás. A GOTO 100 azt jelenti, hogy a programot a 100-as sorszámú 
utasítástól kell folytatni. A MINIATUR-ban azonban a sorszámozásnak nincs 
jelentősége, így valami mást kell kitalálnunk. Ez pedig: 
sprungmarke név. 
A következő utasítással érhetjük el, hogy a program ezen a helyen folytatódjék: 
springe név. 
Itt a név olyan azonosító, amely a programban egyébként nem fordul elő. 


Mintapélda: ugrás 
100 programm ugrás ist 
110 — — 
120 — — 
130 - -— Ezt a programot egy 1-es 
140 — — bevitele leállítja. 


150 — — 

160 — — 

170 fliess egy, teszt 

180 — — 

190 beginne 

200 — — 

210 uebertrage 1.0 nach egy. 
220 — — 

230 sprungmarke kezdet. 
240 — — 

250 hole teszt. vorschub. 
260 — — 

270 wenn teszt — egy dann 
280 — — 

290 leer. 

300 —— 

310 sonst 

320 — — 

330 springe anfang. 

340 — — 

350 wende 

360 — — 


370 pende ugrás. 
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2.14 Az alprogramok 


Alprogramokat akkor használunk, ha az utasítások egy sorozatát csak egyszer 
kívánjuk tárolni, de a programban viszont többször is felhasználjuk azokat. 
A MINIATUR-ban írt alprogramok nem tartalmazhatnak lokális változókat, és 
csak végrehajtható utasításokból állhatnak. 


Az alprogramokat a főprogramhoz csatlakoztatjuk és a következőképpen defi- 
niáljuk: 


unterprogramm alprogramnév ist 


— — utasításblokk 


Ft 


uende alprogramnév. 
Az alprogramokat a következő utasítással hívjuk: 
rufe alprogramnév. 


A következő mintapélda az alprogram és a hívó utasítás működését mutatja be. 


Mintapélda: aprogteszt 


100 programm aprogteszt ist 

110 — — 

120 — — 

130 — — Ez a program vagy az A vagy a B 
140 — —alprogramot hívja a választás szerint. 
150 — — 

160 — — 

170 fliess teszt, egy. 

180 — — 

190 beginne 

200 — — 

210 uebertrage 1.0 nach egy. 

220 — — 

230 sprungmarke kezdés. 
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240 — — 

250 zeigez , alprogram 1/2?" 
260 — — 

270 hole teszt. vorschub. 
280 — — 

290 wenn teszt /— egy dann 
300 — — 

310 rufe a. 

320 — -— 

330 sonst 

340 — — 

350 rufe b. 

360 wende. 

380 — — 

390 springe kezdés. 

400 — — 

410 pende aprogteszt. 

420 — — 


440 unterprogramm a ist 
450 — — 

460 zeigez , alprogram a." . 
470 — — 

480 uende a. 

490 -— — 


510 unterprogramm b ist 
520 -— — 

530 zeigez , alprogram b.". 
540 - — 

550 uende b. 
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3. A LEXIKÁLIS ELEMZÉS 


3.1 Miért szükséges a lexikális elemzés? 


A programellenőrzés első lépése a lexikális elemzés. Feladata a programok 
olyan átalakítása, amely lehetővé teszi a további lépések egyszerűsítését. 


A programokat ún. normálalakra kell hozni, amely a program bizonyos, lényeg- 
telen részeit már nem tartalmazza. MINIATUR programot sokféleképpen leírha- 
tunk anélkül, hogy magát a program logikáját megváltoztatnánk. Választhatunk 
nagy- vagy kisbetűs írásmódot, az egyes szavak között annyi üres helyet 
hagyhatunk, amennyit akarunk, megjegyzéseket tehetünk, a sorok számozását 
önkényesen választhatjuk meg stb. 


A lexikális elemzésnek a tulajdonképpeni feladata a lényegesnek a lényegte- 
lentől való elválasztása. A lényeges rész a compiler szempontjából értendő, 
hiszen egy megjegyzések nélküli program a felhasználó számára inkább csak 
sejtés, mint érthető rendszer. A programot ún. tokenekre (lexikális egységekre) 
bontjuk, amelyek a program legkisebb, önálló értelemmel rendelkező szimbólu- 
mai. A MINIATUR programokban a tokenek az olyan kulcsszavak, mint pl. a 
programm, az ist — , a., a), a pende stb., valamint a felhasználó 
által választott szavak, mint pl. a programnév, a változónév stb., továbbá 
bizonyos karaktersorozatok és a számok. 

Azt a programot, amely kikeresi a MINIATUR programunkból a tokeneket, 
SCANNER-nek (keresőprogramnak) nevezzük. 

Ezzel röviden megmagyaráztuk, mire való, ill. miért szükséges a lexikális 
elemzés. Részletesen a SCANNER-ről a következő fejezetben lesz szó. Azt, 
hogy a SCANNER feladata miért olyan fontos, a szintaktikai elemzésről szóló 
fejezetben tárgyaljuk. 
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3.2 Hogyan működik a SCANNER? 


j 
Vegyük újra szemügyre az előbbi fejezetben bemutatott program következő 


sorát! 
340 ausgang egész wenn száz — szám. 


Nos, mit csinál a SCANNER, amikor ezt a sort feldolgozza? A sor elején a sor 
száma található. Minthogy a program szempontjából ez lényegtelen, ezen 
átugrik. Ezután az ausgang betűkombináció, majd üres hely következik. Az üres 
helyről ismeri fel a SCANNER, hogy a szónak vége. Azt is szeretnénk azonban 
tudni, hogy az ausgang kulcsszó-e, vagy pedig a felhasználó által választott 
szó. Ennek eldöntésére a SCANNER átnézi a kulcsszavak szótárát, és meg is 
találja ezt a szót. A további programelemzési lépésekhez nem kell az egész 
szót megjegyezni, mivel a kulcsszavakhoz számokat rendelünk, amelyeket 
azok helyén jegyzünk meg. Ez megkönnyíti a kulcsszavakkal való foglalkozást, 
nem kell mindig a szótárban utánanézni, melyik kulcsszóról is van szó. 


Az ausgang szó után az egész szó következik, amelynek végét a SCANNER 
ismét az üres helyről ismeri fel. Ez a szó nem kulcsszó, de megjegyezzük. 
A következő szó a wenn, ami kulcsszó, és azt már tudjuk, hogy a SCANNER-nek 
mi a teendője. 

Minden programnyelvben vannak olyan jelek, amelyek egyértelműen jelzik, ha 
egy szónak vége van. E jeleket elhatároló jeleknek (angolul DELIMITER-nek) 
nevezik. A MINIATUR-ban ilyen többek között az egyenlőségjel és a pont. 
Ennek alapján most már tudjuk, hogyan megy végbe a megadott sor további 
részének feldolgozása. 

A kicsit pontatlan leírás után, amelynek fő célja csak a szemléltetés volt, már 
nem is olyan sok választ el minket attól, hogy nekifogjunk a SCANNER program 
megírásának. Előbb azonban a SCANNER részfeladatait pontosan meg kell 
fogalmaznunk. 


A részfeladatok a következők: 


— — a program olvasása és a listasorok kiírása; 

-— — az elhatárolók felismerése; 

— — a kulcsszavak felismerése; 

— — az üres helyek megszüntetése, kivéve az olyan idézőjelbe tett szövegré- 
szeket, mint pl. ,enno a bolondos"; 

— — a megjegyzéssorok eltávolítása; 

— — a tokenek kiadása. 
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3.3 A program olvasása és a listasorok kiírása 


Ahhoz, hogy a számítógép a programot elemezni tudja, természetesen először 
is el kell tudnia olvasni. Ezt sokszor könnyebb kimondani, mint megtenni. 


Eddig még nem beszéltünk arról sem, hogy milyen segédeszközökkel kell a 
lefordítandó programokat megírni. Az olyan programot, amellyel valamilyen 
nyelven programokat lehet szerkeszteni, editornak hívják. 


Editorok pl. a különböző szövegszerkesztő programok, de editor pl. az olyan 
saját magunk által írt program is, amit arra a célra készítettünk, hogy adott 
nyelven írt programok bevitelét végezze. Számunkra mindenekelőtt a követke- 
ző eset a legegyszerűbb. 


Vesszük a gép operációs rendszerébe beépített editort, amellyel normális 
körülmények között BASIC programokat írunk. A BASIC programok a szokásos 
módon feldolgozhatók, változtathatók, tárolhatók és kinyomtathatók. A továb- 
biakban abból indulunk ki, hogy a lefordítandó program lemezen van. A leme- 
zen lévő program csupán egy szöveghalmaz, amelyet számunkra értelmes 
szövegként szeretnénk olvasni. Értelmes szövegen ebben az esetben azt a 
betűsorozatot értjük, amelyet begépeltünk és amely ugyanilyen aiakban listáz- 
ható. Az értelmes szöveg tulajdonképpen a forrásprogram. 


A BASIC editor minden BASIC kulcsszót számként kódolva tárol, így pl. a FOR 
szót 129-ként kódolja. A BASIC editor minden újonnan bevitt soron lexikális 
analízist végez, amely természetesen a BASIC nyelvű szövegre és nem a 
MINIATUR nyelvű szövegre vonatkozik. A sorok is meghatározott alakban 
kerülnek be a tárba és így kerülnek rá a lemezre is. 


Nézzük meg tehát, hogy milyen alakban találjuk a BASIC editorral előállított 
szöveget! A szöveg elején két karaktert olvasunk el. Ezek azt az információt 
tartalmazzák, hogy a programszöveg melyik tárolóhelynél kezdődött, amikor 
a programot bevitték. E két karakter bennünket most nem érdekel. Ezután 
következnek a programsorok a megadott formában. 


Az első két karakter a kapcsolócímke, amely a BASIC editornak azt jelezte, 
hogy a következő programsor melyik tárhelynél kezdődik. Ez a két karakter 
sem érdekel minket. 


Ezután két olyan karakter következik, amelyek a dekódolás után a programsor 
számát adják meg. 


Bár a MINIATUR programokhoz nem kell a sorok számozása, mégis, ha később 
el akarjuk készíteni programunk listáját, vonatkoztatási helyként szükség lesz 
rájuk. 
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A sorok számozását a következőképpen lehet dekódolni: az első karakter ASCII 
kódjához a második karakter ASCII kódjának 256-szorosát hozzáadjuk. 


Az A és ! betűt olvastuk ki. Az A-hoz és az I-hez tartozó ASCII értékek: A— 65 
és l1—73. Így a sor számát a következő módon számítjuk ki; 


65 --73x256 — 18751. 


Ezután kiolvassuk a programsorunk további karaktereit. Itt a BASIC kulcssza- 
vak kódoltan találhatóak. A BASIC szavakat 128 és 203 közötti ASCII értékekre 
kódolták. A normál karakterek ASCII értéke csak 127-ig terjed, így pontosan 
tudhatjuk, mikor találkozunk egy BASIC szóval, és mikor olvasunk normál 
karaktert. A kódolt BASIC szót dekódoljuk és így megkapjuk az általunk keresett 
értelmes szöveget. 


A következő ASCII értékeket olvastuk ki: 
80, 128, 69 

Mivel a mellékelt táblázat szerint: 
80-p, 128-— end, 69— e, 

ebből a pende szó adódik. 


A sor végét a BASIC editor a nulla ASCII értékkel jelzi. 
A program végét a kapcsolócím jelzi, amely nulla nulla ASCII értékekből áll. 


Ha olyan programot akarunk írni, amelyik a szöveget elolvassa, értelmes 
szöveggé alakítja és kiírja a képernyőre, akkor ehhez szükségünk van egy 
olyan táblázatra, amely (kölcsönösen és egyértelműen) megfelelteti a betűket 
és az egyéb jeleket (együttesen karakterek) azok ASCII-értékeinek. Ismernünk 
kell még a BASIC szavakhoz egyértelműen hozzárendelt ASCII értékeket is. 


Az ASCII értékeken a karakterek és a kulcsszavak azon decimális értékeit 
értjük, amelyet a C64-es a belső rendszerében használ. Egy más típusú számí- 
tógép esetén ezek a listák valószínűleg másként néznek ki (mások a számérté- 
kek), de ezeket az értékeket a számítógép kézikönyvéből ki lehet keresni. 


A következő táblázatban a karakterek ASCII értékeit adjuk meg. 
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Érték Karakter Érték 
32 üres hely 33 
34 üres hely 99 
36 $ 674 
38 g 39 
40 ( 41 
42 3 43 
44 45 
46 § 47 
48 0 49 
50 VA 51 
52 4 53 
54 6 55 
56 8 5Z 
58 : 59 
60 z 61 
62 pe 63 
64 § 65 
66 b 67 
68 d 69 
70 f 71 
72 h 73 
74 j 75 
76 I Vg 
78 n 79 
80 p 81 
82 r 83 
84 t 85 
86 v 87 
88 x 89 
90 z 91 
92 É 93 
94 A 95 
96 emelt üres hely 


Karakter 


j Tsz ge 0A OTA TOO FS [dc tO SON 00 es SZET SZ as gk 


97-től a grafikai szimbólumok következnek a 128-as ASCII értékig, majd a 


BASIC szimbólumok ASCII! értékei: 


128 END 
130 NEXT 
132 INPUT 3 
134 DIM 

196 LET 

138 RUN 


129 FOR 
131 DATA 
133 INPUT 
135 READ 
137 GOTO 
139 IF 
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140 RESTORE 


141 GOSUB 


142 RETURN 143 REM 
144 STOP 145 ON 
146 WAIT 147 LOAD 
148 SAVE 149 VERIFY 
150 DEF 151 POKE 
152 PRINT 34E 153 PRINT 
154 CONT 155 LIST 
156 CLR 157 CMD 
158 SYS 159 OPEN 
160 CLOSE 161 GET 
162 NEW 163 TAB( 
164 TO 165 FN 
166 SPC( 167 THEN 
168 NOT 169 STEP 
170 : 171 — 

172 4 173 / 
1741 175 AND 
176 OR 177 c 

178. 179 5 

180 SGN 181 INT 
182 ABS 183 USR 
184 FRE 185 POS 
186 SOR 187 RND 
188 LOG 189 EXP 
190 COS 191 SIN 
192 TAN 193 ATN 
194 PEEK 195 LEN 
1986 STR$ 197 VAL 
198 ASC 199 CHR$ 
200 LEFT$ 201 RIGHT$ 
202 MiD$ 203 GO 


Most pedig kezdjünk hozzá ahhoz a programhoz, amely a lemezen lévő szö- 
veghalmazt értelmes szöveggé dolgozza fel, és sorról sorra listázza. Ezt a 
programot fogjuk azután a fennmaradó részfeladatoknak megfelelően bővíteni. 
A programot úgy írjuk meg, hogy alprogramonként a szintaktikai elemzésre is 
felhasználhassuk. 


A szintaktikai elemzést végző program mindannyiszor be fogja hívni a lexikális 
elemzést végző programot, valahányszor új tokent talál. i 
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A program felosztása 


Az 1000-esig terjedő sorokat a felhasznált változók meghatározására és ma- 
gyarázatára használjuk fel. Az 1000-estől a 2000-esig a sorokat az előkészíten- 


dő feladatok számára tartjuk fenn. 


A 2000-estől az 50 000-esig a sorokba a szintaktikai elemzést végző program 
kerül. Az 50 000-es sortól kezdődik majd a lexikális elemzést végző program. 


Az egyes sorokat nem feltétlenül abban a sorrendben fogjuk tanulmányozni, 
ahogyan majd a kész programban megjelennek, hanem megpróbáljuk a prog- 
ramot logikai felépítése szerint megmagyarázni. 


10 rem Program a MINIATUR programok 


20 rem lexikális és szintaktikai 
30 rem elemzésére 

40 rem — — 

50 rem Deklarációk 

60 rem — — 

70: 


Abból indulunk ki, hogy a fordítandó program lemezen van. A szintaktikai 
elemzés eredményeit lemezen tároljuk, a programlistát pedig a képernyőn 


vagy a nyomtatón jelenítjük meg. 


rem 
90 be — 15 rem 
95: rem 
100in—-— 8 rem 
105: rem 
11004 —7 rem 
ug ka rem 
120 pr — 83: rem 
125 rem 
130 11$—"":12$—"":13$—"": rem 
140 i1— 0:i2— O:I3]O: rem 


A lemez száma 

A lemezhez rendelt logikai file száma 
és másodlagos címe 

Az adatbeviteli csatorna logikai 
file száma és másodlagos címe 
Az adatkiviteli csatorna logikai 
file száma és másodlagos címe 
A programlista kiviteli csatornája 
Képernyőbeállítás 

Beviteli változók 

A megfelelő ASC!! értékek 


A programot bevihetjük úgy, ahogy eztitt leírtuk, és a könyv végén megtalálhat- 


juk a program listáját is. 


Kezdjük tehát azokkal az előkészületekkel, amelyet a programnak mindjárt az 


elején el kell végeznie: 


1000 rem — — 
1010 rem Előkészületek 
1020 rem — — 
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1030 : 
1040 print "elr billentyű" : rem Képernyőtörlés 


Az 1040-es sornál a képernyő törlése következne, ezért a CLR billentyű kiírása 
helyett egyszerűen meg kell nyomni ezt a billentyűt. 


1050 print : print "a MINIATUR fordító": print 

1060 print:"lista a képernyőre vagy a nyomtatóra (k/ny)?" 
1070 get i1$ : if 11$ — "k" or i1$ — "ny" then 1090 

1080 goto 1070 

1090 if i1$ — "ny" then pr — 4 

1100 open pr,pr,7 : rem A kiviteli csatorna megnyitása 


A programlista kivitelére a megfelelő csatorna megnyitása. 


képernyő esetén open 3,3,7 
nyomtató esetén open 4,4,7. 


A nyomtató tehát a 4-es egységszámot kapja. 


1110 print : print "tessék a lemezt betenni." 
1120 print "tovább returnnal!" : print 

11380 geti1$ : if i1$ c 5 chr $(13) then 1130 
1140 print "melyik programot kell lefordítani?" 
1150 input "név:",i2$ 


Most már minden információnk megvan ahhoz, hogy a lemezen levő megfelelő 
filet megnyissuk. Először azonban még megnyitjuk a lemezegységhez tartozó 
csatornát és a lemezegységet olyan állapotba hozzuk, amilyenben közvetlenül 
a bekapcsolás után volt. 


Lehet, hogy az olvasó a lemezegységgel kapcsolatos eljárást túl körülményes- 
nek érzi, de a parancsnak és az előírásnak, ami első pillanatra feleslegesnek 
tűnik, megvan a maga értelme. 


A szintaktikai elemzés eredményeit szekvenciális fileba, miniatur syn néven 
szeretnénk megőrizni. Ha a lemezzel már végeztünk fordítást, úgy ilyen nevű 
file már létezik, ezért ezt törölnünk kell. Az is megtörténhet, hogy a program 
felhasználója a lemezen lévő program behívásakor megnyomja ugyan a RE- 
TURN billentyűt, de előzőleg nem helyezett lemezt az egységbe. Ezért most 
írunk egy olyan alprogramot, amelyet akkor hívunk meg, ha tudni akarjuk, hogy 
a lemezegységgel kapcsolatban elkövettünk-e valamilyen hibát. 


A csatorna megnyitása a parancsok számára: 
1160 open be,fIl.be 


1170 printttbe,"i" 
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A hibakezelést végző alprogram: 


60000 rem A lemezegység hibacsatornájának lekérdezése 
60010 : 

60020 inputttbe en, em$,et,es : if en— 0 then return 

60030 print 

60040 print "kk s kx x hiba van a lemezen!" 

60050 print "xx x xx hiba száma: ";en 
60060 print "xx x xx hibajel:" 

60070 print "x x xx"; em$ 

60080 print "xx x x hibás szektor : ";et 
60090 print "xx xx hibás nyom :";jes 
60100 printit be, "i" 

60110 close be : close pr 

60120 print : print "x x x x program leállt!" 
60130 end 


Itt az en, az em$ő§, az et és az es új változókat használtuk. Ezért a 150-es számú 
sorra is szükségünk van (az előzőekben csak a 140-esig jutottunk), amely a 
következőképpen alakul: 


150 en—0:em$—"":et— 0:es—0:rem A hibacsatorna lekérdezése 
A miniatur syn törlése: 


1180 printttbe,"S:miniatur syn" 
1190 Inputttbe, en em$,et,es 
1200 if enc 5 1 then 60030 


Egy adat törlése után az en értéke 1, ezért közvetlenül nem tudjuk az alprogra- 
mot működtetni, le kell kérdezni a hibacsatornát. 


Megnyitjuk a be- és kiviteli adatfile-okat: 


1210 open in fl,in,i2$-4 "pr" : gosub 60000 
1220 getitin,i1$,i1$ 
1230 open ou fl,ou, "miniatur syn,s,n" : gosub 60000 


Az 1220-as sorban az adatfile első két karakterét átugorjuk, mert nincsen 
számunkra jelentőségük. 


1240 gosub 59000 


Az 59000-es sorban kezdődő alprogramban a kódolt BASIC szavakat értelmes 
szövegként a ba$-ban tároljuk. Mivel összesen 76 BASIC szó van, a 160-as sor 
a következő lesz: 
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160 dim ba$(75) : 


59000 rem BASIC szavak az értelmes szövegben 


59005 : 
59008 ba$( 
59010 ba$( 
59020 ba$( 
59030 ba$( 
59040 ba$( 
59050 ba$( 
59060 ba$( 
( 
( 
( 
( 
( 


HI. ij 


No r I 


59070 ba$ 
59080 ba$ 
59090 ba$ 
59100 ba$ 
59110 ba$ 
59120 ba$( 
59130 ba$( 
59140 ba$( 
59150 ba$( 
59160 ba$( 
59170 ba$( 
59180 ba$( 
59190 ba$( 
59200 ba$( 
59210 ba$( 
59220 ba$( 
59230 ba$( 
59240 ba$(2 
59260 ba$(2 
59270 ba$(27 
59280 ba$(28 
59290 ba$(29) — 


0) 
Te 
2) 
3) - 
4) 
5) 
6)— 
Zs 
8 
aj 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
4 
6 


) 
JE 
Va 
) 
) 
) 
) 
JE 
) 
) 
JEE 
JE 
Ji 
JE 
) 
1 
Jó 
Ja 


il I 1888 1) 


- "END" 
jze sú 
NEXUS 
"DATA" 
"INPUT3;" 
"INPUT" 
z "DIM" 
"READ" 
"LETT" 
"GOTO" 


— "RUN" 
s IP" 


"RESTORE" 
"GOSUB" 
"RETURN" 
"REM" 
STOP" 
SON" 


s "SAVE" 
— "VERIFY" 


"PRINTd;" 

- "CONT" 
SERVE 

jé TB ré 

"CMD" 


59300 ba$(309—"SYS" 


59310 pad(ad s 
59320 ba$(32 

59330 ba$(3 
59340 ba$(3 
59350 ba$(3 
59360 ba$(3 
59370 ba$(3 
59380 ba$(38 
59390 ba$(3 
59400 ba$(4 
59410 ba$(41 


"OPEN" 


s -"SPOC 


rem BASIC szavak az értelmes szövegben 


59420 ba$(42)— " -t " 
59430 ba$(43) — 

59440 ba$(44)— "a" 
59450 ba$(45) — up 
59460 ba$(46)— "1" 
59470 ba$(47) — "AND" 
59480 ba$(48) — ses 
59490 ba$(49)— " c" 
59500 ba$(50) 
59510 ba$(51) 


59520 ba$(62) — " SEN" 
59530 ba$(53) — 

59540 ba$(54) — " AB? 
59550 ba$(55) — "USR" 

59560 ba$(56) — "FRE" 
59570 ba$(57)— "POS" 
59580 ba$(58) — "SOR" 
59590 ba$(59) — "RND" 
59600 ba$(60) — "LOG" 


) ige 

JE 

) 

) 

59610 ba$(61) — "EXP" 
59620 ba$(62) —"COS" 
59630 ba$(63) — "SIN" 
59640 ba$(64) — "TAN" 
59650 ba$(65) — "ATN" 
59660 ba$(66) — "PEEK" 
59670 ba$(67) 
59680 ba$(68) 
59690 ba$(69) — "VAL" 
59700 ba$(70)—"ASC" 
59710 ba$(71)—"CHR$" 
59720 ba$(72) — "LEFT$" 
59730 ba$(73)— "RIGHT$" 
59740 ba$(74) — "RND$" 
59750 ba$(75)— "GO" 
59760 RETURN 

59770 : 


1101 


"LEN" 
"STR$" 


I II 


Ezt az alprogramot egyszer lefuttatjuk a lexikális elemzés kezdetekor. 


Most már csaknem eljutottunk odáig, hogy megírhatjuk azt a programot, amely 
a szintaktikai elemzésnél először belép. Ez a program nem tesz mást, mint a 
lexikális elemzést végző alprogramtól mindaddig új tokent követel, amíg csak 
a szöveg olvasásának végére nem jutott. 


A lexikális elemzést végző programnak azonban még az induláshoz segítséget 
is kell adnunk, nevezetesen el kell olvasnunk számára, az első kapcsolócímet 


íz 65 


és az első sorszámot. Ehhez írunk egy alprogramot, (az 51000-es sorban 
kezdődik), amelyet a későbbiekben mindig akkor hívunk be, ha egy sor végére 
érünk, és az említett feladatok előttünk állnak. 


A lexikális elemzés során az i1$-ban annak a karakternek kell lennie, amelyet 
éppen feldolgozunk, és az i2$-ban, valamint az i3$-ban pedig a soron következő 
két karakternek, ezáltal lehetőségünk nyílik arra, hogy programunkban kissé 
előre tekinthessünk. Amint majd látni fogjuk, gyakorlati szempontból ez elő- 
nyösnek bizonyul. Az i1, i2, i3-ban a megfelelő füzérváltozók ASCII értékeit 
fogjuk tárolni. 


Az az alprogram, amely egy karaktert beolvas és az i1$, az i2$, az i3$ értékét 
megfelelően lépteti, az 51500 sornál kezdődik: 


51500 rem karaktert beolvasni 

51505: 

51510 i1$—i2$ : i2$—i3$ : getdtin,i3$ 

51520 i1— i2 : 12—3 : if 13$—" "then 13— 0: return 
51530 i3— asc(i3$): return 

51540 


Ezt az alprogramot kétszer kell hívnunk, mielőtt az 51000-es sorban kezdődő 
alprogramhoz ugrunk: 


1250 gosub 51500 : gosub 51500 : gosub 51000 
51000 rem sorkezdet 


Az i2$-ban és az i3$-ban a következő sorra utaló kapcsolócímet találjuk, ezt 
átugorjuk. 


Ezután az a két karakter következik, amelyek az utasítás sorszámát tartalmaz- 
zák. A sorszám kiíratásához először egy, a 254-es ASCII értékű karaktert, majd 
a sor számának két karakterét visszük ki a lemezegységre. A 254-es karakter 
más összefüggésben nem kerülhet elő, és így később a 254-es karakter olvasá- 
sakor az utána következő sorszámot fel tudjuk ismerni. 


A továbbiakban a képernyőre, ill. a nyomtatóra való kivitelt a következő sorra 
kell állítanunk. Ehhez egy kocsi vissza jelet küldünk a PR csatornára, majd 
kiírjuk a megfelelő utasítás sorszámát. Ezután hívjuk az i15-t, az i2$-t és az i3$-t. 
Az i1$-ban az új sor első karakterének kell állnia. 


51005 : 

51010 gosub 51500 : gosub 51500 : gosub 51500 
51020 print4t uo chr$(254); i1$;i2$; 

51030 print pr,chr$(13);str$(i1-t i2 x 256); 
51040 gosub 51500 : gosub 51500 : return 
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Annak érdekében, hogy a program áttekinthetőbb legyen, a gyakran futtatott 
alprogramok egy részét a teljes program végére helyezzük! Azoknál a progra- 
moknál, amelyek interpreterrel futnak, ez nem jó, mert a program futtatása így 
lassúbb. 


A gépi kódra fordított programoknál ez nem fordulhat elő. A programrész, 
amely a szintaktikai elemzést vezérli: 


2000 gosub 50000 : if t$ € 5 chr$(255) then 2000 
2010 printtt pr, chr$(13) "lexikális elemzés lezárva!" 
2020 close pr 

2030 close in 

2040 close ou 

2050 close be 

2060 end 


Ez a programrész mindaddig egy új tokent hív, amíg a t$—chr$(255) feltétel 
nem teljesül. Ez a karakter a program végét fogja jelenteni. A megnyitott 
file-okat lezárjuk, hogy a program befejezése teljes legyen. 


Térjünk vissza a program olvasása és a listasorok kiadása című feladathoz: 


50000 rem Lexikális elemzés 
50010 if i1—0 then if i2—0 then if i3—0 then t$— chr$(255): return 


Ha az il, az i2 és az i3 egyenlő nullával, akkor ez azt jelenti, hogy a program 
végére jutottunk. A kapcsolócím nulla. 


50020 if 11—0 then gosub 51000 
A sor végét felismerjük, és a megfelelő alprogramra ugrunk. 

50030 if i15 127 and i1 €204 then i1$—ba$(i1— 128) 
Ha i1 nagyobb mint 127 és kisebb mint 204, akkor az i1$-ban egy kódolt BASIC 
szó van, amelyet dekódolnunk kell, vagyis az i1$ helyébe az az értelmes 


szöveg kerül, amelyet ba$-ban tárolunk. 


50200 printidt pr, i1$; gosub 51500 
50210 return 


Most néhány sorszámot kihagyunk, hogy a SCANNER további feladatainak 
elvégzését majd innen vezéreljük. 


Az így elkészített program most már futtatható. A futtatás eredményeképpen 
a MINIATUR programunk egy listáját kapjuk. 
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3.4 A megjegyzéssorok eltávolítása 


A következő részfeladat a megjegyzéssorok eltávolítása. 


A megjegyzéseket két egymás után következő vonal (miínuszjel) vezeti be. 
A sor ezután következő részét tehát el lehet hagyni. 


A program a megjegyzéseket a 50040-es sor segítségével ismeri fel: 
50040 if 11— 171 then if i2— 171 then gosub 51700 : goto 50000 
A következő utasítások a programsort végigoivassák, és kiviszik a képernyőre: 


51700 rem A sort végéig elolvasni és elhagyni 

51705 : 

51710 printépr, i1$; : gosub 51500 : if i11—0 then return 
51720 if i12 127 and i1 204 then i1$-— ba$(i1— 128) 
51730 goto 51710 

51740 : 
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3.5 Az üres helyek megszüntetése 


A SCANNER fontos részfeladata a felesleges üres helyek felismerése és eltá- 
volítása. Most ezzel foglalkozunk. 


A MINIATUR. programban egynél több üres hely felesleges. Ezeket a következő 
programsorral távolítjuk el: 


50050 if 11$—"" then ifi2$—"" then print tt pr, i1$; : gosub 
51500 : goto 50000 


A tokenek azonban legtöbbször több karakterből állnak, és a végüket az elhatá- 
roló jelek alapján ismerjük fel. Eszerint az i$-t mindaddig T$-al bővítjük, amíg 
az i2$-ban elhatároló jelet nem találunk: 


50190 1$—t$--i1$ 
A 2000-es sort a következőképpen bővítjük: 
2000 t1$—"" : gosub 50000... 


A továbbiakban még két alprogramra van szükségünk: az egyikre annak eldön- 
téséhez, hogy egy token MINIATUR kulcsszó-e; a másikra pedig a karaktersoro- 
zatok összeállításához. Karaktersorozatokon belül ugyanis sem a nagybetűs 
írást kisbetűssé alakítani, sem pedig az üres helyeket törölni nem lehet. 


Az első alprogramot az 52000-es sortól, a másodikat pedig az 53000-es sortól 
kezdődően írjuk meg. 
50070 if 11-34 then gosub 53000 : goto 50000 


Ha az aktuális karakter idézőjel, akkor egy karaktersor elolvasásáról és megőr- 
zéséről van szó: 


53000 rem A karaktersor elolvasása 

53010 1$—1t$--i1$: gosub 51500 : if ií1 C 5 34 then goto 53010 
53020t$ —1t$-7-i1$: return 

59030 : 


Az elhatároló jelek a mi esetünkben a következők: 


—,!, c, 5,.,", , sorvége, ", üres hely. 
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Négy eset lehetséges. 
1) Olyan karaktersorozatot olvastunk el, amelyet pont követ: 


50080 if i1— 34 then if i2$—"." then 50200 
50085 if i1— 32 then if 12— 34 then goto 50130 


2) Az i2$-ban elhatároló jel van: 


50090 if 128—"—" or i2$—"/" or i2$—" c" or i2$—" 5" then gosub 52000 : 
goto 50200 
50100 if i2$—"." ori2$—" "ori2-0ori2-—34then gosub 52000 : goto 50200 


50110 if i12$—"/ then gosub 52000 : goto 50200 
3) Az i1$-ban elhatároló jel van: 


50126 if 11$—"." or 11$—"," ori1$—"-—" then t$—i1$: goto 50200 
50128 if 11$—"/" or 11$—" c" or 11$—"52" then t$—i1" : goto 50200 


4) Az i1$ üres hely: 
50130 if í1$—"  " then printttpr, "  "; : gosub 51500 : goto 50000 


Most már csak az az 52000-es sorral kezdődő alprogram hiányzik, amely 
felismeri, hogy egy token MINIATUR kulcsszó-e vagy nem? Ha a token MINIA- 
TUR kulcsszó, akkor t$ értéke a kulcsszó kódja lesz. 


A MINIATUR kulcsszavakhoz a 128-astól kezdődő számokat rendeljük hozzá. 


A következőkben közöljük a MINIATUR kulcsszavakat, és a hozzájuk tartozó 
számokat. 


Érték Kulcsszó 
128 addiere 
129 ausgabegeraet 
130 ausgang 
181 beginne 
182 bilde 

133 cuspalte 
134 cuzeile 

195 donn 

136 durch 

187 dividiere 
188 fliess 

139 hintergrund 
140 hole 
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141 ist 


142 leer 

143 mit 

144 multipliziere 
145 noch 

146 pende 

147 potenziere 
148 programm 
149 rahmen 

150 rufe 

191 scehrift 

152 : schirmfrei 
153 schleife 

154 sende 

155 sonst 

156 springe 

1597 sprungmarke 
158 subtrahiere 
159 ueber 

160 uebertrage 
161 uende 

162 unterprogramm 
163 von 

164 vorschub 
165 wende 

166 wenn 

167 zeige 

168 zeigez 

169 zeigeas 

170 zu 


Eljárhattunk volna úgy is, hogy a t$-t minden kulcsszóval összehasonlítjuk. Ez 
azonban nagyon időigényes lenne, ezért inkább megnézzük a t$ kezdőbetűjét, 
és akkor már tudjuk, hogy egyáltalában milyen kulcsszavak jöhetnek szóba. Az 
ezzel a betűvel kezdődő szavakat már hamar át lehet nézni. 


A MINIATUR kulcsszavakat szintén egy megadott programtartományban he- 
lyezzük el. Ez ugyan pillanatnyilag még nem volna feltétlenül szükséges, de 
mivel majd a szintaktikai elemzés számára a hibakezelésnél újra szükségünk 
lesz ezekre a kulcsszavakra, ily módon végül is tárhelyet takarítunk meg. 


Összesen 49 MINIATUR kulcsszó van. 


vé 


170 dim mi$(48) : rem Az értelmes szöveg miniatur szavai 
1245 gosub 58000 
58000 rem miniatur kulcsszavak 
58005 : 
58008 mi$(0) — "addiere" 
58010 mi$(1)—" ,ausgabegeraet" 
58020 mi$(2)— "ausgang" 
58030 mi$(3) — "beginne" 
58040 mi$(4) — "bilde" 
58050 mi$(5) — "cuspalte" 
58060 mi$(6) — "cuzeile" 


58070 mi$(7) — "dann" 

58080 mi$(8) — "durch" 
58090 mi$(9) — "dividiere" 
58100 mi$(10)— "fliess" 

58110 mi$(11)— "hintergrund" 
58120 mi$(12)— "hole" 

58130 mi$(13)— "ist" 

58140 mi$(14)— "leer" 

58150 mi$(15)— "mit 

58160 mi$(16)— "multipliziere" 
58170 mi$(17)— "nach" 
58180 mi$(18)— "pende" 
58190 mi$(19)—" ,potenziere" 
58200 mi$(20) — "programm" 
58210 mi$(21)— " rahmen" 
58220 mi$(22) — "rufe" 

58230 mi$(23) — "scehrift" 
58240 Kűgsébe! "schirmfrei" 
58250 mi$(25) — "schleife" 
58260 mi$(26) — "sende" 
58270 mi$(27)— "sonst" 
58280 mi$(28) — "springe" 
58290 mi$(29) — "sprungmarke" 
58300 mi$(30) — "subtrahiere" 
58310 mi$(31)— "ueber" 
58320 mi$(32) — , uebertrage" 
58330 mi$(33)— "uende" 
58340 mi$(34) — u vélek kgászákóli 
58350 mi$(35)— "von" 

58360 mi$(36) — "v orschub" 
58370 mi$(37)— "wende" 
58380 mi$(38)— "wenn" 
58390 mi$(39) — "zeige" 
58400 mi$(40) — "zeigez 
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58410 mi$(41)—"z dsdhangizó 
58420 mi$(42)—"z 
)-" 


58430 mi$(43 ugyi 
58440 mi$(44)— "bis" 
58450 mi$(45)— A sávdésától 


58470 mi$(47 
58480 mi$(48 
58490 return 
58500 : 


) 

) 
58460 mi$(46) — 

) Iz 

JEZ 


52000 rem a t$ token? 
52010 
52020 t$—t$--i1$ : t—0 : a— asc(left$(t$,1)) 


A tértékbe az alprogram futása után a MINIATUR kulcsszó ASCII kódjának kell 
kerülnie. Ha a t értéke az alprogram futása során nem változik meg, akkor a 
t$ nem kulcsszót tartalmaz. Az a-ba a t$ első jelének ASCII értéke kerül. 


180t1$ —" ":t—0 : rem Token változók 
190 a—0 : rem A segédváltozó a lexikális elemzéshez 


Felmerül a kérdés, hogy a t$ egyáltalában betűkombinációt tárol-e. 
520380ifa C€ 65 vagy a 5 90 then return 


Most egy kiszámított ugrás következik az egyes betűkhöz tartozó alprogramok- 
hoz. BASIC nyelvben ez kissé komplikáltnak látszik, de valójában nem az. 


Először is az ábécét felosztjuk 5 olyan szakaszra, amely egyenként 5—5 betűt 
tartalmaz, és egy olyan szakaszra, amely egy betűt tartalmaz. 


52040 on int ((a— 65)/5) goto 52060, 52070, 52080, 52090, 52100 
Most már az egyes betűknek megfelelően ágaztathatunk el. Ha a értéke 65 és 
69 között van, akkor int ((a— 65/5) értéke nulla, és a program a következő sorra 
tér rá. 
Ha egy betűhöz nem tartozik kulcsszó, akkor az 52900-as sorra ugrunk, amely- 
ben egy RETURN található: 

52900 return 


52050 on (a— 64) goto 52200, 52220, 52240, 52260, 52900 
52060 on (a— 69) goto 52300, 52900, 52340, 52360, 52900 
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52070 on (a— 74) goto 52900, 52380, 52400, 52420, 52900 
52080 on (a— 79) goto 52440, 52900, 52460, 52480, 52900 
52090 on (a— 84) goto 52500, 52520, 52540, 52900, 52900 
52100 goto 52560 


Miután egy betűre befejeztük ezt az eljárást, az 52800-as sorra térünk. 


52800 if t—0 then return 
52810 t$—chr$(t) : return 


Ha t—0, akkor t$ nem kulcsszót tartalmaz, minden más esetben a kódolt 
kulcsszó a t$-ban található. 


52200 b—0 : c—2 : gosub 52700 : return : rem a 
52220 b—3 : c— 4 : gosub 52700 : rem b 

52230 b—44 : c— 44 : gosub 52700 : return : rem bis 
52240 b—5 : c—6 : gosub 52700 : return : rem c 
52260 b—7 : c—9 : gosub 52700 : return : rem d 
52300 b— 10 : c— 10 : gosub 52700 : rem f 

52310 b—43 : c— 43 : gosub 52700 : return : rem fuer 
52340 b—11 : c— 12 : gosub 52700 : return : rem h 
52360 b— 183 : c— 183 : gosub 52700 : return : rem i 
52380 b—14 : c— 14 : gosub 52700 : return : rem I 
52400 b— 15 : c— 16 : gosub 52700 : return : rem m 
52420 b— 17 : c— 17 : gosub 52700 : return : rem n 
52440 b— 18 : c— 20 : gosub 52700 : return : rem p 
52460 b—21 : c— 22 : gosub 52700 : return : rem r 
52480 b— 23 : c—30 : gosub 52700 : return : rem s 
52500 b—31 : c— 34 : gosub 52700 : return : rem u 
52520 b—35 : c— 36 : gosub 52700 : return : rem v 
52540 b—37 : c— 38 : gosub 52700 : rem w 

53550 b—45 : c— 45 : gosub 52700 : return : rem wiederhole 
52560 b—39 : c— 42 : gosub 52700 : return : rem z 


52700ford-btoc 
52710 if t$— mi$(d) then t— 128-4-d 
52720 next d 


Az mi$ tömbben a MINIATUR szavakat ABC sorrendben tároljuk. A fenti alprog- 
rammal egy adott betűnél kezdődő kulcsszavak tömbbeli helyét határozzuk 
meg. A kezdő index értékét b-ben, az utolsó index értékét c-ben tároljuk. Ne 
felejtsük el az a-t, a b-t, a c-t és a d-t kinullázni! 


190 a— 0:b—0:c—0:d-—-0:rem A segédváltozók a lexikális elemzéshez 
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Ezzel a lexikális elemzés végéhez értünk. Ebben a könyvben a BASIC progra- 
mozás speciális lehetőségeit ismertetjük, amelyeket könnyű megérteni, változ- 
tatni és bővíteni. Ezek a lehetőségek sokszor bonyolultnak tűnhetnek, de a 
programban már egészen egyszerűek. 


Ha a programot az olvasó már bevitte a számítógépbe, akkor kérjük, hasonlítsa 
össze a könyvben hátrább található listával, amelynek címe: A Parser listája. 
Ez a könyv egyik programja alapján készült. A fenti programsorokat kézzel 
gépelték, ezért kétségek, ill. eltérések esetén a gépi listázás a mértékadó. 
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4. A SZINTAKTIKAI ELEMZÉS 


A szintaktikai elemzésnél a következő kérdés merül fel: megfelel-e MINIATUR 
programunk a MINIATUR nyelvtan szabályainak? A MINIATUR programot egy 
- ezen a nyelven írt -— forrásszövegként fogjuk fel, és megvizsgáljuk, hogy a 
szöveg mondatai kielégítik-e a nyelv szabályait. A feladat hasonló ahhoz, mint 
amikor megvizsgáljuk, hogy pl. egy magyar mondat megfelel-e a magyar nyelv 
szabályainak. Induljunk tehát ki egy ilyen példából. 


A kutya ugat. 
Rövidítsük a mondatra vonatkozó szabályt a következőképpen: 
mondát: : -—- alany állítmány. 


Ezt így is olvashatjuk: a mondat alanyból, állítmányból és egy pontból áll. Most 
már tudjuk, miből áll a mondat; de mi az az alany, és mi az az állítmány? Azt, 
hogy mi az a pont, már tudjuk, ott is van a mondat végén. A mondatban 
előforduló olyan szimbólumokat - ilyen a pont is — amelyek további elemzést 
nem igényelnek, terminális szimbólumoknak fogjuk nevezni. A további elem- 
zésre szoruló szimbólumokat pedig ennek megfelelően nem terminális szimbó- 
lumoknak nevezzük. 


Alany: : — névelő főnév 
Névelő: : — a 
: az 
Főnév: : — autó 
fémdoboz 
kutya 


Az alany a névelőből és a főnévből tevődik össze. A névelő lehet a vagy az, 
tehát több lehetőség áll fenn; ezt a kettőspont használatával jelezzük. Főnév- 
ként az autó a fémdoboz és a kutya a lehetséges választék. 


Állítmány : : — ige 

19ge :: — ugat 
csillog 
gurul 


Az állítmány csak igéből áll, és a fenti három ige közül választhatunk. 
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Elemezzük most mondatunkat: 


A kutya ugat 

alany állítmány 
névelő főnév ige 

A kutya ugat. 


Megállapíthatjuk, hogy ez a mondat szabályos magyar mondat. A nyelvtan, 
amelyet kialakítottunk nagyon egyszerű, és az elemzésnél úgy járhattunk el, 
hogy az egyes lehetőségeket végigpróbáltuk. Hosszabb, bonyolultabb nyelvta- 
ni szerkezetek esetében azonban ez nagyon soká tarthat, még akkor is, ha 
számítógéppel végezzük. Itt majd még egy előírást vagy algoritmust kell tanul- 
mányoznunk, de erről majd később beszélünk. Először lássunk hozzá ahhoz, 
hogy a MINIATUR nyelvtanát összeállítsuk. Ehhez még egyszer pontosan 
szemügyre kell vennünk a MINIATUR utasításait. 


A nyelvtan 
Minden MINIATUR program alapvető felépítése a következő: 


programm programnév ist 


— — definíciós blokk 


beginne 


— — utasításblokk 


pende programnév 


alprogramok 


Írjuk fel szabályként: 

program: :— programm" programnév ist" 
definíciós blokk beginne" 
utasításblokk pende" 
programnév ". alprogram EOF 


Ezzel a Program nyelvtani fogalmát határoztuk meg. Ebben még a következő 
eddig nem meghatározott fogalmak fordulnak elő: 
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programnév, 
definíciós blokk, 
utasításblokk, 
alprogram. 


Ha az ismeretlen fogalmakat és azok szabályait meghatározzuk, akkor nyelvta- 
nunk összeállításával elkészültünk. 


Még néhány megjegyzés az írásmódról. A " " közötti szavak terminális 
szimbólumok. Minden nem terminális szimbólumot, amely névre végződik, 
együttesen határozzunk meg. A szó előtagja (pl. program-, ciklus-, alprogram-) 
alapján szintaktikai elemzést nem végzünk. Minden névnek ugyanolyan szin- 
taktikai felépítésűnek kell lennie, míg a program-, alprogram- előtag a név 
fajtáját adja meg. Erre majd a szemantikai elemzésnél lesz szükségünk. Pl: egy 
programnevet nem szabad változónévként használnunk. 


Az EOF nem terminális szimbólum jelentése: END OF FILE a programban 
szereplő adatállomány (röviden a program) fizikai vége. 


Az EOF bevezetése kissé mesterkéltnek tűnhet, de erre a szimbólumra a 
szintaktikai elemzésnél szükségünk lesz. 


Alprogram:: — "unterprogamm! alprogramnév 
ist" utasításblokk uende" 
alprogramnév ". 

Alprogram 
3 Hő 


E szabály alkalmazásakor két lehetőségünk van. Az L azt jelenti, hogy az 
alprogram üres is lehet (Leer-üres) , ugyanis egy MINIATUR program alprogra- 
mokat nem feltétlenül tartalmaz. Minthogy a Program nyelvtani szabálya min- 
den MINIATUR programra érvényes, és ebben a szabályban az Alprogram- 
szabály is előfordul, az Alprogram-szabályt mindig alkalmaznunk kell. 


Ha MINIATUR programunkban nincsenek alprogramok, akkor az L anternatívát 
alkalmazzuk. 


Az első alternatíva azt írja elő, hogy egy alprogramot kell felépíteni, és ez ismét 
az Alprogram hívásával végződik. Ez a szabály a végén újra önmagát hívja, 
mert lehetséges, hogy több alprogram is van a programban. Ha csak egy 
alprogram van, akkor a szabály második alkalmazásakor az L alternatívát kell 
venni. Újabb nem terminális szimbólumok az Alprogram-szabály során nem 
lépnek fel. 


Programnév, változónév 


Név : — Betű Név-1 
Név-1 : — Betű Név-1 
k 18 
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Betű: : — "a 


Eszerint egy név tetszőleges számú betűből állhat. Korlátként a 80 betűt állítjuk 
fel; ugyanis ennél több betűből álló nevet nem is tudunk bevinni. 


Definíciós blokk 


Definíciós blokk Változódefiniálás 


vö) 18 
Változódefiniálás :: — "fliess" változónév 
Változódefiniálás-2"." 
Definíciós blokk 
Változódefiniálás-2 z !"" változónév 
Változódefiniálás-2 
rat 8 


A definíciós blokk üres is lehet. Ha nem az, akkor a változók meghatározásából 
áll. A Változódefiniálás című szabály a végén a definíciós blokkot hívja, mert 
tetszőleges számú változódefiniálás lehet a programban. Egy változódefiniálá- 
son belül több változót is lehet meghatározni (ezeket vesszővel kell elválaszta- 
ni). Ezért szerepel a Változódefiniálás-2. 


Az utasításblokk 


Az utasításblokkra vonatkozó szabály eléggé terjedelmes, mert az összes 
utasításképzési lehetőséget figyelembe kell venni. 


Utasításblokk :: - Utasítás Utasítássorozat 

Utasítássorozat :: — Utasítás Utasítássorozat 
ss 

Utasítás :: 5 leer 


: zeige" kiírás-1 ". 
: zeigez" kiírás soremeléssel /." 
: vorschub" ". 

: schirmfrei" ". 

: cuspalte" egészszám (." 

: cuzeile" egészszám "." 
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: zeigeas" egészszám ". 

: ausgabegaraet" készülékmegjelölés "." 

: rahmen" színmegjelölés "." 

: "hintergrund" színmegjelölés "." 

: sehrift" színmegjelölés "." 

: hole" változónév "." 

: uebertrage" átvitel-1 "." 

: addiere" változónév "zu" változónév "nach" 
változónév "." 

: subtrahiere" változónév von" változónév 
nach" változónév "." 

: "multipliziere" változónév "mit" változónév 
nach" változónév "." 

: "dividiere"  változónév durch" változónév 
"nach" változónév "." 

: potenziere"  változónév "mit  változónév 
"nach" változónév "." 

: bilde" függvénynév "Von!" változónév Kép- 
zés-1 ". 


.: wenn" feltétel dann" 


utasításblokk ssonst" 

utasításblokk "wende" "." 

: schleife" ciklusnév ueber" 
utasításblokk ". 

: ausgang! ciklusnév wenn" 
feltétel "." 

: fuer" változónév von! változónév 
"bis" változónév "wiederhole" 

: sprungmarke" cím "." 

: springe" cím "." 

: rufe" alprogramnév "." 


Ez tehát az Utasítás-szabály. Eddig még nem ismertettük az átvitel-1, a kép- 
zés-1, a feltétel, a karakterlánc, az egészszám és a kiírás-1 fogalmakat. 


Átvitel-1 


Képzés-1 
Feltétel 


Operátor 


:: - Lebegőpontos szám nach" változónév 


változónév nach" 
változónév 


:: —m "nach" változónév 


18 


:: — változónév operátor 


változónév 


hjzső 
re 
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My 
isa 
SNS r — 
Karakterlánc :: — Billentyűkarakter Karakterlánc 
zó A 


A billentyűkaraktert már nem kell további fogalmakkal meghatározni, ezen 
egyszerűen a billentyűzetről bevihető összes karaktert értjük, kivéve az idéző- 
jelet. 


Egészszám :: - Számjegy Egészszám-1 
Egészszám-1 : : - Számjegy Egészszám-1 
se 
Számjegy vs. 0 
jét 4 
208 
9 


II 


Lebegőpontos szám 
Lebegőpontos szám-1 


Egészszám Lebegőpontos szám-1 
". Egészszám Lebegőpontos szám-2 
ponenciális 


bad 


Lebegőpontos szám-2 Exponenciális 


08szagól (AN zni LU 


Exponenciális 
Exponenciális-1 


"e" Exponenciális-1 

"4" Egészszám 

"— Egészszám 

: . Egészszám 

Kiírás-1 (itt szöveg) :: s "" Karakterlánc " 
: Változónév 


Ezzel a MINIATUR programnyelv nyelvtanát leírtuk. 


Ahhoz, hogy a nyelvtannal dolgozhassunk, először is sorszámokkal ellátva 
összefoglaljuk a nyelvtan szabályait, majd egy tárgymutatót mellékelünk. 
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4.1 A nyelvtan szabályai 

01 Program — programm  programnév ist 
Definíciós blokk "beginne" 
Utasításblokk pende" programnév 
". alprogram EOF 

02 — Alprogram — lunterprogramm" alprogramnév 
ist" Utasításblokk uende" alprog- 
ramnév "." alprogram 

03 ni A 

04 Név : — Betű Név-1 

04a Név-1 — Betű Név-1 

05 L 

06 Betű — a 
hp 
e! 
98 
ő. 
z 

07 Definíciós blokk — Változódefiniálás 

08 s 

09  Változódefiniálás — fliess" változónév 
Változódefiniálás-2 
". Definíciós blokk. 

10 Változódefiniálás-2 n — "" változónév 
Változódefiniálás-—2 

11 e 

12 Utasításblokk — Utasítás Utasítássorozat 

13 Utasítássorozat — Utasítás Utasítássorozat 

14 L 

15 Utasítás n — "HTeer 

16 : zeige" kiírás-1 . 

17 : zeigez kiírás-1 " 

18 : vorschub" ". 

19 : schirmfrei" ". 

20 : "cuspalte" egészszám "." 

21 : (cuzeile" egészszám /." 

22 : zeigeas" egészszám. 
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Átvitel-1 


Képzés-1 


Feltétel 
Operátor 


: rausgabegeraet" 


készülékmegjelölés "." 


: rrahmen" színmegjelölés "." 

: "hintergrund"! színmegjelölés "." 

: "sehrift" színmegjelölés "." 

: "hole" változónév "." 

: tuebertrage" átvitel-1 "." 

: raddiere" változónév "zu" változónév 


, 


"nach" változónév ". 


: "subtrahiere" változónév von" változó- 


név nach" változónév "." 


: "multipliziere" változónév "mit" válto- 


zónév nach! változónév ". 


: (dividiere" változónév "durch! változó- 


név nach" változónév "." 


: "potenziere" változónév mit" változó- 


név "nach" változónév "." 


: .(bilde" függvénynév von! változónév 


út 


képzés-1 


: wenn" feltétel dann" utasításblokk 


ő 


"sonst" utasításblokk "wende 


: "sehleife" ciklusnév "ueber" utasítás- 


blokk 
"sende" ciklusnév "." 


: "ausgang" ciklusnév 


"wenn feltétel "." 


: fuer" változónév von" változónév 


bis" változónév "wiederhole" 


utasításblokk sende" ". 


: Ssprungmarke" cím." 

: "springe" cím." 

: rufe" alprogramnév "." 

: - lebegőpontos szám nach!" változó- 


név 


: változónév nach" változónév "." 


"nach" változónév 


változónév operátor változónév 


Karakterlánc 


Egészszám 
Egészszám-1 


Számjegy 


Lebegőpontos szám 
Lebegőpontos szám-1 


Lebegőpontos szám-2 


Exponenciális 
Exponenciális-1 


Kiírás-1 (itt szöveg) 


( UCI ! EGUSS 


Egészszám 
szám-—2 


m 
x 
pe 
o 
23 
o 
3 
o 
x: 
[73 


Exponenciális 


"e" Exponenciális-1 
"4! Egészszám 


I 


: "—! Egészszám 
: Egészszám 

n —!"" Karakterlánc 
: változónév 


1ng 


karakter karekterlánc 


Számjegy Egészszám-1 
Számjegy Egészszám-1 


Egészszám Lebegőpontos szám-1 


Lebegőpontos 
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4.2 A nyelvtan tárgymutatója 


A sor elején a szabály kulcsszáma áll. Ez akkor jelenik meg, amikor a szintakti- 
kai elemzés során a veremből (STACK) előkerül. De erről a későbbiekben 


bővebben lesz szó! 


Az ezután következő szám a szabály sorszáma, ez megegyezik az előző 
fejezetben található sorszámokkal. A perjel után következő számok pedig azt 


közlik, hogy a nyelvtan mely szabályaiban szerepel az adott szabály. 


01 Utasítás 

02 Utasításblokk 
03 Utasítássorozat 
04 Feltétel 

05 Név 


24 Név-1 

06 Képzés-1 

07 Betű 

08 Definíciós blokk 

09 Exponenciális 

10 Exponenciális-1 

11 Lebegőpontos szám 
12 Lebegőpontos szám-1 
13 Lebegőpontos szám-—2 
14 Egészszám 

23 Egészszám-1 

15 Operátor 

16 Program 

17 Átvitel-1 

18 Alprogram 

19 Változódefiniálás 

20 Változódefiniálás-—2 
21 Karakterlánc 

25 Kiírás-1 

22 Számjegy 

26 Billentyűkarakter 
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15/1238 

12/1, 2, 35, 36, 38 
13/12, 13 

46/35, 37 


4/1, 2, 4, 9, 10, 23, 24, 25, 26, 27, 29, 
30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 


41, 42, 43, 44, 46 
4a/4, 4a 

44/34 

6/4, 4a 

7/1 

64/60, 62 

65/64 

58/42 

59/58 

62/59 

55/20, 21, 22, 58, 59, 65, 66, 67 
55a/55, 55a 
47/46 


53/53, 68 
68/16, 17 
57/55 

/53 


4.3 Hogyan használja a fordító a nyelvtant? 


Ebben és a következő két fejezetben azokat az előmunkálatokat szeretnénk 
bemutatni, amelyek ahhoz szükségesek, hogy a szintaktikai elemzést végző 
programot megírjuk. A szintaktikai elemzést végző programot PARSER-nek 
hívják. Egyelőre abból indulunk ki, hogy vizsgálandó MINIATUR programunk 
szintaktikailag hibátlan, és így csak az elemzés technikájával foglalkozunk. 
Majd ezután térünk rá a hibák kezelésére. 


Amint már említettük, a PARSER a nyelvtan és a tárgymutató alapján működik. 
Ahhoz, hogy az elemzés módszerét megismerjük, végezzük el a következő kis 
program szintaktikai vizsgálatát: 


10 programm a ist 
20 beginne 

30 leer 

40 pende a. 


Tudjuk, hogy minden MINIATUR programnak ki kell elégítenie a Program- 
szabályt, amelynek sorszáma a nyelvtanban 01-es. Ez a szabály a MINIATUR 
programot teljesen átfogja, legyen az akármilyen bonyolult is. A PARSER tehát 
először ezt a szabályt veszi elő, és megjegyzi. Felmerül természetesen az a 
kérdés, hogyan jegyzi meg a PARSER ezt a szabályt? 


A PARSER a szabályt az ún. veremben tárolja. Következő kérdés: mi ez a 
verem? A verem működését talán a következő furcsa, és látszólag a verem 
szóval nagyon is nem összeillő példán érthetjük meg a legkönnyebben. Képzel- 
jük el egy felhőkarcoló liftjét, amely a következő elven működik: a lift kabinjá- 
ban csak két gomb van, az 1-es gomb: egy emeletnyit fel, a 2-es gomb: egy 
emeletnyit le. 


A liftezés kiindulópontja a 0 szint. Innen mindig egy-egy emelettel feljebb 
tudunk menni, és minden emeleten információt helyezhetünk el. Ezt az ottha- 
gyott információt elfelejtjük, amint azt az emeletet, ahol éppen vagyunk, el- 
hagyjuk. Amint magasabbra megyünk, ez az információ az előbb elhagyott 
emeleten megvan, de csak akkor tudunk hozzáférni, ha visszamegyünk erre az 
emeletre. A magasabb emeleteken elhelyezett információk számunkra nem 
léteznek. Egy emelettel feljebb csak akkor mehetünk, ha azon az emeleten, 
ahol éppen vagyunk, információt helyeztünk el. Így minden alattunk lévő emele- 
ten információk vannak. 
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Ez a szerkezet azt a célt szolgálja, hogy megtaláljunk olyan információkat, 
amelyekre egy későbbi időpontban szükségünk lesz. 


Gondoljuk most meg a 01-es Program-szabályt! Talán meglepően hat, de a 
PARSER a szabályokat jobbról balra haladva jegyzi meg. 


Emelet Információ 
0 szint EOF 
1 szint alprogram 
2 szint vé 
3 szint programnév 
4 szint pende" 
5 szint utasításblokk 
6 szint "beginne" 
7 szint definíciós blokk 
8 szint ist 
9 szint programnév 
10 szint programm" 


Ha a 10. szinten vagyunk, akkor most a programm! információval rendelke- 
zünk. Mihez kezdünk ezzel az információval? 


Tudjuk, hogy a programm terminális szimbólum. Tudjuk továbbá azt is, hogy 
minden MINIATUR programnak a programm kulcsszóval kell kezdődnie. Ezt 
éppen onnan tudjuk, hogy a legfelső szinten lévő információ terminális szimbó- 
prg 

Gondolkodjunk el ezeken a mondatokon! E mondatok tartalmazzák ugyanis a 
szintaktikai elemzés lényegét. 
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4.4 A szintaktikai elemzés stratégiája 


Az elemzés előkészületei során a PARSER megjegyezte az előbbi szabályt, és 
a SCANNER utasítást kapott arra, hogy a MINIATUR program első tokenjét 
előkeresse. Programunk első tokenje a programm szó. A PARSER-nak most 
semmi mást nem kell tennie, mint a programm" terminális szimbólumot a 
programm tokennel össze kell hasonlítania. Minthogy a két információ azonos, 
a PARSER most már tudja, hogy a MINIATUR programunk a programm szóig 
megfelel a MINIATUR szintaktikai szabályainak. Ezért a programm tokent elfe- 
lejtheti és a következő tokenért fordul a SCANNER-hez. Megkapja a program 
nevét, az a-t. Ekkor egy szinttel lejjebb megy, mivel a programm információ 
feleslegessé vált, és a program további alakulására vonatkozó információra 
van szüksége. Elolvassa tehát a program nevét, a Név szintaktikai értelmének 
megfelelően. A Név azonban nem terminális szimbólum, így azt nem tudja a-val 
összehasonlítani. A Név egy szintaktikai szabályt jelent. 


Milyen stratégiát alkalmaz most a PARSER? A Név szimbólumot rendre a 
megfelelő szabályokkal helyettesíti mindaddig, amíg a verem legfelső szintjén 
ismét termináiis szimbólum nem jelenik meg. 


A Név szabálya: 
04 Név: : — Betű Név 
05 :L 


Így tehát a PARSER-nak két lehetősége van: vagy a Betű Név, vagy az L alter- 
natívát választja. Milyen alapon dönt? Minden alternatívához tartozik egy lista, 
amelyben megtalálható, hogy az aktuális tokenhez melyik alternatívát kell 
választani. Hogy miképp jut a PARSER ezekhez a listákhoz, azt majd később 
ismertetjük. Egyelőre azonban higgyük el, hogy a PARSER helyesen választ. 


A PARSER tehát a 04-es sorszámú Betű Név szabályt választja a nyelvtanból. 
Törli a 9-es szintet, ahol eddig a programnév volt, és itt, majd a 10-es szinten 
az alábbi kombinációt helyezi el: 


9-es szint Név 
majd következik a: 


10-es szint Betű 


A verem legfelső szintjén tehát most Betű van. Betűn az összes kisbetüűt értjük, 
és mivel az a kisbetű, a PARSER a betű helyére az a-t teheti és összehasonlít- 
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hatja az a tokennel. Minthogy a kettő megegyezik, kéri a következő tokent és 
egy szinttel lejjebb megy. A következő token az ist. A 9-es szinten a Név 
információ található. A PARSER-nak ekkor ismét választania kell a Betű Név 
és az L alternatíva között. Ezúttal az L alternatívát választja. Ez azonban törlést, 
ill. az egy szinttel lejjebb való keresést jelenti. A 8-as szinten a PARSER az ist" 
információt találja, ami terminális szimbólum. Következik tehát a tokennel való 
összehasonlítás. Minthogy a kettő megegyezik, kéri a következő tokent és így 
tovább. 


Az itt leírtak mindaddig folytatódnak, amíg a SCANNER az END OF FILE (vége 
a MINIATUR programnak) információt nem jelenti, és a PARSER a 0-ás szinten 
az egyezést meg nem állapítja. 


Ekkor elmondható, hogy a MINIATUR program szintaktikailag helyes, és ezzel 
a PARSER a feladatát befejezte. 


Reméljük, hogy ezzel érthetővé vált, hogyan működik a PARSER. Javasoljuk, 
hogy az olvasó próbálja meg a program hátralévő részén a szintaktikai elem- 
zést elvégezni (tehát ahol mi az - és így tovább - -bal befejeztük, ott tessék 
folytatni). Ha egy szabálynál nem tudjuk, hogy melyik alternatívát válasszuk, 
akkor próbáljuk ki a lehetőségeket és döntsük el magunk. 


Az olvasó biztosan észrevette, hogy az előbb a Név-szabályt nem úgy bontottuk 
ki, ahogyan korábban a nyelvtan összeállításakor azt meghatároztuk. Javasol- 
juk, hogy az olvasó gyakorlásul vegye elő az eredeti, tehát a nyelvtan összeállí- 
tásakor meghatározott szabályt, és vezesse végig az előbbi esetet ilyen módon 
is 


Három kérdés maradt még nyitva. 


— Hogyan jutunk ahhoz a listához, amelyik az alternatívák kiválasztását 
vezérli? 

— Hogyan kezeli a PARSER a hibás programokat? 

— Mit kell a PARSER-nak tennie ahhoz, hogy a programokat gépi nyelvre 
lehessen lefordítani? 
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4.5 Az alternatívák kiválasztása 


A PARSER az elemzésnél a következőképpen jár el: a verem legmagasabb 
szintjén lévő információ alapján kikeresi azt a szabályt, amelyet alkalmaznia 
kell. Ezután megnézi. magának az aktuális tokent és egy lista alapján kiválaszt- 
ja a megfelelő alternatívát. 


Hogyan jutunk ilyen listához? 


Programjaink tokenjei mindig terminális szimbólumok. Minden alternatívához 
ki kell keresnünk azokat a terminális szimbólumokat, amelyek az adott alterna- 
tíva alkalmazásánál elsőként fordulhatnak elő. Ez nagyon egyszerűnek látszik, 
de e feladat elvégzése hosszadalmas is lehet, különösen, ha egy bonyolultabb 
nyelvtant kell feldolgoznunk, ahol csak nagyon kevés alternatíva kezdődik 
terminális szimbólummal. Egyes könyvekben találhatunk ugyan olyan előíráso- 
kat, amelyek sikerrel alkalmazhatóak, de ezek lényegében csupán ötletek egy 
olyan program megírásához, amely a megfelelő terminális szimbólumokat 
megtalálja. Az ilyen előírások alapján legtöbbször nem lehet felismerni, hogy 
mi a cél, és így sok gépies és fölösleges munkát végez az ember. Ennek 
elkerülésére minden egyes alternatívánál megvizsgáljuk, hogy milyen terminá- 
lis szimbólumok fordulhatnak elő. 


Kezdjük el, és a teljesség kedvéért nézzük meg a 01 Program-szabályt is, bár 
ezt a szabályt sohasem kell alternatívaként választanunk, mert a szintaktikai 
elemzés kezdetén már megjelenik. 


Alternatíva Terminális szimbólum 
01 program 

02 alprogram 

03 EOF 


Ha egy alternatíva üres, akkor meg kel! nézzük, hogy milyen szabályokban 
található az adott szabály, és melyek lehetnek azok az első terminális szimbó- 
lumok, amelyek azt esetlegesen követik. Pl.: az Alprogram-szabály csak a 
Program-szabályban található. Az egyetlen terminális szimbólum, ami ezután 
jöhet, az az EOF cím. Ebből az következik, hogyha a legmagasabb szintű verem 
információ az Alprogram és az aktuális token az unterprogramm, akkor a 02-es 
alternatívát választjuk. 


Ha a legmagasabb szintű verem információ az Alprogram és az aktuális token 
az EOF, akkor a 0838-as szabályt választjuk. Tovább: 
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04 Betű 


04a Betű 
05 ist, ". ". , zu, nach, von, mit, durch, ueber, wenn, bis, wiederhole  —", /—-", 
ZOLEE St ESEE CAN N. 


Kérjük az Olvasót, próbálja ki, hogyan jutottunk el a 05-ös szabályhoz tartozó 
terminális szimbólumokhoz! Használja fel ehhez a már előbb ismertetett tárgy- 
mutatót. 


06 betű 

07 fliess 

08 beginne 

09 fliess 

14028 

falt 

12 leer, zeige, zeigez, vorschub, schirmfrei, cuspalte, cuzeile, zeigeas, aus- 
gabegeraet, rahmen, hintergruna, schrift, hole, uebertrage, addiere, sub- 
trahiere, multipliziere, dividiere, potenziere, bilde, wenn, schleife, aus- 
gang, fuer, sprungmarke, springe, rufe 

13 lásd 12 

14 pende, uende, sonst, wende, "., sende 

15 /eer 

16 zeige 

17 zeigez 

18 vorschub 

19 schirmírei 

20 cuspalte 

21 cuzeile 

22 zeigeas 

23 ausgabegeraet 

24 rahmen 

25 hintergrund 

26 schrift 

27 hole 

28 uebertrage 

29 addiere 

30 subtrahiere 

31 multipliziere 

32 dividiere 

33 potenziere 

34 bilde 

35 wenn 

36 schleife 

37 ausgang 

38 fuer 
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39 sprungmarke 
40 springe 

41 rufe 

42 számjegy 

43 betű 


53 billentyűkarakter, kivéve az idézőjel 
54 438 

55 számjegy 

55a számjegy 

56 :-. e, nach 

57 számjegy 

58 számjegy 

99. 2 


67 számjegy 
68 199 
69 betű 


Az ilyen listák összeállítása nehéznek, bonyolultnak tűnik, pedig valójában 
egészen egyszerű. Szeretnénk egy példával még egyszer ezt bemutatni. 


Vegyük az 56-os alternatívát (lásd a nyelvtan szabályait!) 


Ez az alternatíva üres, így felmerül a kérdés: mi következhet az Egészszám—1- 
szabály után (55a)? Az Egészszám-1-szabály csak az Egészszám-szabályban 
fordul elő, éspedig utolsó elemként. Mi következhet az Egészszám-szabály 
után? A tárgymutató szerint az Egészszám-szabály a 20, 21, 58, 59, 65, 66, 67-es 
alternatívákban fordul elő. A 20, 21 és a 22-es alternatívákban az Egészszám- 
szabály után pont következik. 


Az 58-as szabály az Egészszám-szabály a Lebegőpontos szám-1 szabály előtt 
áll. Az Egészszám-szabály után következők tehát ebből az utóbbi szabályból 
adódnak, mint az ott előforduló első terminális szimbólumok. A Lebegőpontos 
szám-1-szabály a 61-es üres alternatívát és a Lebegőpontos szám-1-szabály 
további terminális szimbólumait is magában foglalja. 
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A Lebegőpontos szám-1-szabály első terminális szimbólumai a ". és az Expo- 
nenciális-szabály első szimbóluma az "e. A Lebegőpontos szám-1-szabály 
további terminális szimbólumai a Lebegőpontos szám-szabály terminális szim- 
bólumaiból adódnak, mert a Lebegőpontos szám-1-szabály csak a Lebegőpon- 
tos szám-szabály utolsó elemeként fordul elő. A Lebegőpontos szám-szabály 
azonban csak a 42-es alternatívában fordul elő, ahol is az utánakövetkező 
terminális szimbólum a nach. 


Eddig tehát a . az e és a nach! terminális szimbólumokhoz jutottunk. 


Meg kell még vizsgálni a 65-ös, a 66-os és a 67-es alternatívákat is. Mindhárom 
Egészszám-szabállyal végződik és az Exponenciális-1 szabályhoz tartozik. 


Kérdés; Melyek az Exponenciális-1-szabály utánakövetkező terminális 
szimbólumai? 

Válasz: az Exponenciális-szabály utánakövetkező terminális szimbólumai! 

Kérdés: Melyek az Exponenciális-szabály utánakövetkező terminális szim- 
bólumai? 

Válasz: a Lebegőpontos szám-2 és a Lebegőpontos szám-1 szabályok 
utánakövetkező terminális szimbólumai! 

Kérdés: Melyek a Lebegőpontos szám-2-szabály utánakövetkező terminá- 
lis szimbólumai? 

Válasz: a Lebegőpontos szám-1-szabály utánakövetkező terminális szim- 
bólumai! 


A Lebegőpontos szám-1-szabály utánakövetkező terminális szimbólumaként 
már az előbb meghatároztuk a nach -ot. 


Így állítjuk tehát össze az alternatívák listáját. Az összeállítás közben azonban 
nyilvánvalóvá válik, hogy bonyolultabb és hosszabb szerkezetű nyelvtanok 
esetében gondolkodni kell olyan technikák kialakításán, amelyekkel hiba nélkül 
célhoz tudunk érni. Az eddigi fejtegetések során eddig nem említettük, hogy a 
PARSER csak akkor tudja pontosan, hogy melyik alternatívát kell választania, 
ha a listák egy szabály alternatíváihoz tartozó összes különböző tokeneket 
tartalmazzák. 


Ez egyébként a nyelvtan egyik legfontosabb próbája. Ha egy szabály alternati- I 
váinak a listáiban ugyanazok a tokenek fordulnak elő, akkor vagy a nyelvtant 
kell megváltoztatnunk, vagy más szintaktikai elemzési módszert kell keres- 
nünk. 
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4.6 A hibás programok vizsgálata 


Eddig abból indultunk ki, hogy MINIATUR programunk szintaktikailag hibátlan. 
Ha a programban szintaktikai hibák fordulnak elő, akkor ezek kezelésére két 
lehetőségünk adódik: 


1. kiadjuk a megtalált hibát, és megszakítjuk a szintaktikai elemzést; 
2. megkíséreljük a szintaktikai elemzés folytatását; hogy a program további 
részeit is megvizsgálhassuk. 


Az első lehetőséget elfogadhatatlannak tartjuk. Képzeljük el, hogy egy prog- 
ramban pl. 20 hiba fordul elő, ekkor legalább 21 próbálkozásra van szükségünk 
ahhoz, hogy szintaktikailag hibátlan programot nyerjünk. 


Foglalkozzunk tehát a második lehetőséggei. Hogyan veszi észre a PARSER, 
hogy egy program hibás? Ez is kétféleképpen lehetséges: 


a) a legfelső (legmagasabb szintű) vereminformációnak terminális szimbó- 
lumnak kell lennie, az aktuális token pedig nem egyezik meg a terminális 
szimbólummal, pl.: a gépelésnél hibáztunk és programot írtunk a prog- 
ramm kulcsszó helyett, 

b) aPARSER egy szabálynál keresi a megfelelő alternatívát és egyik listában 
sem találja az aktuális tokent. Pl.: elfelejtettünk a programnak nevet adni; 
programm ist ————— , az aktuális token ekkor az ist, a PARSER azonban 
nevet, azaz egy betűt vár. 


Nézzük meg, milyen stratégiát követhetünk az a) és a b) esetben! 


A vizsgálandó program egy részét nem tudjuk szintaktikailag elemezni, mert 
a vereminformáció a program szerkezetével nem egyezik meg. Meg kell pró- 
bálnunk a vermet és a programot újra úgy megfeleltetni egymásnak, hogy az 
elemzést folytatni lehessen. 


Az első esetben pontosan tudjuk, hogy a PARSER milyen karaktert, ill. szimbó- 
lumot várt, és mit talált. Így nagyon pontos hibajelzést adhatunk. Emellett 
megpróbálhatjuk a várt szimbólumot a programban megkeresni, amennyiben 
a SCANNER-től új tokent kérünk. Gépelési hibánál azonban ez nem mindig 
sikerül, és esetleg nem találjuk meg a keresett szimbólumot. Ennek elkerülésé- 
re legfeljebb csak a legközelebbi ". -ig keressünk, mivel a pont a MINIATUR-ban 
utasításokat zár le, amelyeket kis szintaktikai egységeknek tekinthetünk. Ez- 
után már csak a vermet kell megfelelően egyeztetni, úgy, hogy azt felülről 
kezdve töröljük mindaddig, amíg újra ". -hoz érünk. Ezzel a verem és a program 
szinkronizálása megtörtént, az elemzés folytatódhat. 
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A második esetben megadhatjuk azon tokenek listáját, amelyek a szintaktikai 
elemzés továbbvitelét segíthetik. Ekkor a következőképpen járunk el: a verem- 
ben lefelé haladunk, és keressük a legközelebbi terminális szimbólumot, majd 
továbbolvassuk programunkat ahhoz, hogy megállapíthassuk, előfordul-e ez a 
terminális szimbólum. A programot azonban csupán a legközelebbi pontig 
olvassuk. A veremben is addig haladunk lefelé, amíg ponthoz nem érünk. Így 
újra egyezést értünk el a verem és a program között. 


Lehet, hogy az olvasónak az a véleménye, hogy ezek nagyon durva stratégiák, 
és ráadásul nem mindig vezetnek sikerekhez. Ezenkívül azt a lehetőséget is 
figyelmen kívül hagytuk, hogy a számítógép esetleg önálló hibajavítást is 
végezhetne. Tulajdonképpen az Olvasónak igaza van, de a hibakezelést majd 
úgy helyezzük el a programban, hogy mindenki saját ötletei alapján is tudjon 
hibakezelést bővíteni, ha van elég tárkapacitása. Vannak olyan fordítóprogra- 
mok, amelyekben a hibajavítás kb. ugyanakkora terjedelmű, mint maga az 
elemzés. Egy kisszámítógépnél azonban kompromisszumokat kell tennünk. 


Most már minden MINIATUR programról megállapíthatjuk, hogy szintaktikailag 
hibátlan-e. A szintaktikai elemzés után a szemantikai vizsgálat és a kódgenerá- 
lás következik. Ahhoz, hogy a szemantikai vizsgálat egyáltalán végrehajtható 
legyen, a szintaktikai elemzés során információkat kell a szemantikai vizsgálat- 
ra továbbítanunk. Minthogy a szintaktikai elemzés során a program szerkezetét 
megismertük, használjuk ki ezt az információt is! A program szerkezetét a 
nyelvtan határozza meg, és a PARSER ellenőrzi. Használjuk tehát a nyelvtant 
információs forrásul. Ehhez a nyelvtant olyan szimbólumokkal egészítjük ki, 
amelyek abba beilleszthetők, de a szintaktikai elemzést nem befolyásolják. 
Ezek a szemantikai szimbólumok külön jelölést kapnak. Ha egy szemantikai 
szimbólum legfelső (legmagasabb szintű) vereminformációként jelenik meg, 
akkor a PARSER ezt felismeri, és egy olyan alprogramot hív, amely azt fel is 
tudja dolgozni. Ezt követően ezt a szimbólumot kivisszük a veremből és a 
PARSER folytatja a munkáját. A szemantikai szimbólum alprogramjai informá- 
ciókat gyűjtenek és adnak ki. Az információk ugyanarra az adathordozóra 
mennek ki, amelyre a sorok számát is írtuk. Ezen az adathordozón tároljuk 
mindazokat az információkat, amelyekre szükség van ahhoz, hogy MINIATUR 
programunkat gépi kódú programmá alakítsuk. Pontosan milyen információkat 
is akarunk kiadni? Ehhez még egyszer végig kell mennünk a nyelvtanon, és 
minden alternatíva esetére végig kell gondolnunk, hogy mit is fogunk csinálni. 


A szemantikai szimbólumokat kerek zárójelbe tesszük. 


01 Programm :: — programm" (programnév definíció) programnév ist" (a defi- 
níciós rész kezdete) 
definíciós blokk (a definíciós rész vége) 
"beginne" utasításblokk pende" (programnév elemzés) 
programnév"." alprogram (program vége) EOF 
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A fenti szabály feldolgozásával meghatározzuk a programnevet, és az informá- 
ciókat, valamint a megfelelő nevet kiadjuk (lásd 04, 059. A szemantikai vizsgá- 
lat során azután ezt a nevet felvesszük egy listára és programnévként tartjuk 
számon. A definíciós rész kezdete szimbólumnak az a célja, hogy minden 
következő név rákerüljön a listára. A definíciós rész vége szimbólum után már 
nem szabad további változókat meghatározni, és minden eddig előforduló 
változónak már szerepelnie kell a listán. 


A programnév vizsgálat után a következő névnek a listán programnévként kell 
megjelennie. 


A szemantikai vizsgálatot és a kódgenerálást a következő fejezetben fogjuk 
részletesen tárgyalni. 


Bővítsük ki a nyelvtant ahhoz, hogy a PARSER programját megírhassuk. 


02 Alprogram : — lunterprogramm!  (alprogram- 
név definíció 
alprogramnév 
ist  utasításblokk "uende" (al- 
programnév vizsgálat) 
alprogramnév "." alprogram 


03 sz 

04 Név . — (Betűt megjegyezni) Betű Név-1 
04a Név-1 :: — (Betűt megjegyezni) Betű Név-1 
05 : (nevet kiadni) L 

06 Betű S : iget! 0 REESE HOGAN 

07 Definíciós blokk : — Változódefiniálás 


08 Aj íz 
09 Változódefiniálás n — fliess lebegőpontos változónév 
Változódefiniálás-—2 


". Definíciós blokk 


10 Változódefiniálás—2 n — ", változónév 
Változódefiniálás-—2 

11 2.E 

12 Utasításblokk : — Utasítás Utasítássorozat 

13 Utasítássorozat : - Utasítás Utasítássorozat 

14 $. [Ez 

15 Utasítás n — Jleer 

16 (kivitel) zeige" kiírás-1 "." 

17 (kiírás soremeléssel) zeigez! ki- 
írás—1 "." 

18 :; vorschub" 

19 : (képernyőtörlés) "schirmfrei" "." 

20 : (kurzoroszlop) cuspalte" ". 

vi : (kurzorsor) cuzeile" Egészszám ". 
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22 
23 
24 
25 
26 
0l 
28 
29 
30 


31 


32 


33 


34 


35 


36 


37 


38 


39 
40 
41 
42 átvitel-1 


98 


: (kiírás ASCII kódban) "Zeigeas 


, 


egészszám . 


: (kiviteli készülék) ausgabegeraet" 


készüléknév "." 


: (keret) rahmen" színnév "." 

: (háttér) "hintergrund" színnév "." 

: (írás) scehrift" színnév "." 

: (bevitel) "hole" változónév "." 

: (átvitel) uebertrage" átvitel-1 "." 

: (összeadás) addiere" változónév 


zu változónév "nach! változó- 
név "." 


: (kivonás) subtrahiere" változónév 


von" változónév "." 


: (szorzás) multipliziere" változónév 


"mit" változónév nach! változó- 
név ". 


: (osztás) — dividiere"  változónév 


"durch" változónév "." 


: (hatványozás) potenziere" változó- 


név mit változónév nach! válto- 
zónév ". ; 


: (képzés) bilde" (függvénynév von" 


függvénynév 
képzés-1 ". 


: (döntés) wenn" feltétel dann" uta- 


sításblokk "sonst" utasításblokk 
"wende" (feltételes ciklus vége) 


: "sehleife" (ciklus) 


ueber" utasításblokk sende" 
(ciklus vége) 
ciklusnév "." 


: (kilépés) ausgang —— ciklusnév 


"wenn feltétel ". 


: (paraméteres ciklusutasítás érték- 


adásának kezdete) fuer!" válto- 
zónév von! változónév bis! vál- 
tozónév wiederhole" (paraméte- 
res ciklusutasítás kezdete) 


: (ugrás) sprungmarke" cím "." 

: (ugrás) springe" cím "." 

: (hívás) rufe" alprogramnév "." 

: — lebegőpontos szám nach" válto- 


zónév 


43 


44 képzés-1 
45 

46 feltétel 
47 operátot 


53 karakterlánc 


54 
55 egészszám 


55a egészszám-1 


56 
57 számjegy 
58 lebegőpontos szám 


59 lebegőpontos szám-—1 


62 lebegőpontos szám-—2 
63 
64 exponenciális 


65 exponenciális-1 

66 

67 

68 kiírás-1 (itt szöveg) 
69 


( 
s ( 
ea ( 

( 


: s (tizedes helyek) 


: (változó) változónév nach" változó- 


név 


: — (képzés-i) nach" változónév 
can 
: — változónév operátor változónév 


— (operátor—) — 
operátor/—) /—-— 
operátor) " €" 
operátor—) " c — 
operátor) 5" 


, 


: (operátor—) 5 — 
: — (karaktert megjegyezni) billen- 


tyükarakter karakterlánc 


: (karakterláncot kivinni) L 
.: — (számjegyet megjegyezni) 


számjegy egészszám-1 


. (számjegyet megjegyezni) 


számjegy egészszám-—1 


: (egészszámot kivinni) L 
bis ef 10 5 gt s; sé ségááó 9 
: - egészszám lebegőpontos 


szám-—1 


egészszám 
lebegőpontos szám-2 


: exponenciális 

: (nincs exponenciális) L 

: — exponenciális 

: (nincs exponenciális) L 
: — (exponenciális) "e" exponenciá- 


lis—1 
x. — (plusz) 4" egészszám 
: (mínusz) —" egészszám 
. egészszám 
n — "" karakterlánc " 
: változónév 


A PARSER-rel ilyen formában nem közölhetjük a nyelvtant. A közléshez a 
terminális, a nem terminális és a szemantikai szimbólumokat kódolni fogjuk. 


A terminális szimbólumok számára a számokat A lexikális elemzés c. fejezet- 
ből vesszük, a nem terminálisokhoz a nyelvtan tárgymutatójából és a szemanti- 
kai szimbólumokat pedig az alábbiakban kódoljuk. 
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OO0OAOUNRONVAG 
sk 


Szimbólum 
programnév definíció 
definíciós rész kezdete 
definíciós rész vége 
programnév vizsgálat 
program vége 
alprogramnév definíció 
alprogramnév vizsgálat 
kivitel 

kivitel soremeléssel 
soremelés 
képernyőtörlés 
kurzoroszlop 
kurzorsor 

kivitel ASCII kódban 
kiviteli készülék 
keret 

háttér 

írás 

bevitel 

átvitel 

összeadás 

kivonás 

szorzás 

osztás 

hatványozás 

képzés 

pont 

feltétel 

különben 

feltételes ciklus vége 
ciklus 

ciklus vége 

kilépés 

paraméteres ciklus 
cikluskezdet 
paraméteres ciklus vége 
cím 

ugrás 

hívás 

lebegőpontos szám 
változó 

képzés-1 

operátor — 

operátor / — 


45 operátor c 


46 operátor c — 

47 operátor 2 

48 operátor 5 — 

49 tizedeshelyek 

50 nincs exponenciális 
61 exponenciális 

52 plusz 

53 - mínusz 

54 betűt megjegyezni 

1910) nevet kiadni 

56 karaktert megjegyezni 
57 karakterláncot kiadni 
58 számjegyet megjegyezni 
59 egészszámot kiadni 


Ahhoz, hogy a PARSER mindig el tudja dönteni, hogy éppen milyen szimbólum, 
ill. információ található a verem legfelső szintjén, a következőképpen járunk 
el. 


A terminális szimbólumok számok között kerülnek tárolásra. 
A nem terminális szimbólumokat két szinten tároljuk: 


az alsó szint a szimbólum számát tárolja, 
a felső szint a 2583-as kulcsszámot tartalmazza. 


A szemantikai szimbólumok az 5383-as számmal bezárólag eltolásként a 252-es 
kulcsszámot kapják, az 54-es számtól kezdve pedig a 251-es kulcsszámot. 53-ig 
terjed a szám kiadása és 54-től bizonyos járulékos tevékenységek szimbólumai 
tárolódnak. 


Ezzel a kódolással a 01-es szabály tehát a következőképpen alakul: 


148, 252, 1, 253, 5, 141, 252, 2, 253, 8, 252, 3, 131, 253, 2, 146, 252, 4, 253, 5, 
46, 253, 18, 252, 5, 254. 
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4.7 A Parser 


§ 


Most jutottunk el odáig, hogy összeállíthatjuk a PARSER programot. Minthogy 
a lexikális elemzésnél minden lépést elmagyaráztunk, a következő programok- 
nál kevesebb megjegyzést fogunk tenni. 


A nyelvtan minden szabályát egy karakterlánc tartományba helyeztük el úgy, 
hogy egy szabály alkalmazásakor csupán a megfelelő változótartalmat kel! a 
verembe átvinnünk. Mivel az egyes füzérváltozók értékadását nem tudjuk 
közvetlenül elvégezni, az alternatívákat adatsorokba helyezzük el, és ezután 
visszük át ezek tartalmát a változókba. 


A nyelvtan a 49000-estől az 50 000-esig terjedő sorokban található. 
A 10 040-estől a 10 670-es sorig valósul meg a hibakeresés. 


A PARSER hibát talált, és a korábbiakban leírt stratégiának megfelelően műkö- 
dik. A verem legfelső szintjén található szimbólum tartalmazza azt az informá- 
ciót, mely megmutatja, hogy mely szimbólumok jöhetnek szóba. 


A 11000-estől a 14 630-as sorokban a PARSER azt vizsgálja, hogy melyik 
alternatívát kell választania. 


Kérjük az Olvasót, kövesse a PARSER működését a legkisebb MINIATUR 
program esetében, és kiderül, hogy a programelemzés milyen egyszerűvé vált. 


P.1 
a Parser listaja 
18 rem miniatureProműaramak 


28 rer lexikai es szintaktikai 
za rem elemzo Przgramia, 


Ja rem ee 

sa rem definizick 

6A Pell e 

cd ea zek 

za filszz 

aa 

178 

114 

124 

178 iggzsze" 
1492 7 izső 
158 fv et.-d 

1EB Jim ba$í7rn? : rem bazic alarzzavak 


mill 
éa 
0 


1978 


1968 
ljcri 
1970 
1970 
1890 
1198 
11181 
1 129 
113A 
1148 
1128 
1168 
1178 
1130 
1198 
1218 
128 
1278 
124A 
1245 
1258 
1268 
1278 
1234 
dallal 
z91A 


Jim mi$l4á21 : rem miniatutr o alafPzzavak 

SEBE ot 

a he a b ASS em 5 RÉ rjzB 

al$-ééza : rem nyelvtani szabaly 
zzz : rem lokaliz valtczok 

zinnd ! rem vérem meret 

dJim S5lsSal 7 rem merszem 

szA : KEM E 

mein $kktik Fillanatnsi alternativa mutatcda 

rem az al hüzzsza 

rem lckaliz cikluszsiadex 

022 s Erkellel 2 11 5) 

rzra lemfel: 


verem szimbelim 


rem hibavaltoza 

rem sorkezdet delme 
PEN 

rem elokeszületek 


mer se 


É Fr i Hit " ag" 

Print. print" MINIRTUR-fordito :".Print 
Print"A Frataköoll üuyamtatora vagy kebernzore kerü 
LV a rel SNNES A 

zet il$ : if il$z"s" or i1$£-"k" then 1858 
gato 1878 

if il§sz"n" them Pbr:z:4 

noben ProProz o: rem csatorma mezngyitaza 
Print.:Erint"Kerecm az adatlemezt!" 

Print "(RETURNMS" "Print 

Get ji$ : if i11§£é7-EehrEl 123. then 1188 
Frint"Melyik Prorg3ramot akarida forditani?" 
input" vev "siz8 

ren be .€1.be 

FrinttHtbe."i" 

Printttbe., "zómimiatur-ezyun" 
inpuüutHtbs. em emt. et ez 

aken irmefl.im, "et" aizbt par : gozub ERAHARA 
GgetHtim.i1$£.il?F 

open an .fl.cn. "Amimnigfturcszam,g sut o: gozub sApHR 
avzub :aao8g 


gasub 43RBA : Fem nyeltan hivasza 

gosub 4zOHH : rem elzőo karakter allitáaza 
gosub 411R8A : rem elzo 1 t 

rem Parzer huruak 


Oszzülz, 
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then Soto 35999 

then ota 39999 

then güto 19998 

szün and 3z2Z535 then to 35885 

zj then 9g0sub 4990k : sozuk 42909 : goto z 


maa mm RID 


) PID) 2 PO PG EV EJ PI 
a) a AV NDIID 
0274 MJ) RB EV Pa 


"EOF-ra varok." 


208 "Befejeztem a Pro3zraract 


7 then Print§pr.. "AH következc alabszot v 
ar om smigézatza rigai 
zlAt if szézidllaz then Printtbkr, "A következő ködöt, varo) 
TÜZEK 18 
211d ücta 10498 
1H3ARA rem alternativak keresése 
191 oszen észiő 
1dAZA 7azuúub 11099 
18E if alsz55 then ata 1AA49 
1202 if lenfalpialssírA then sozúub 4A94yB : sosub 41838 
ücta 2AaNE 
198223 ansub 41899 : Jgota ZARAR 
190319 FrintHpr. cher 170 
19A5A Printátbre, "Hiba !" 
198£R if asloroszorusz then Printttfr. "ESyib alternativa 
sem lehetzegez !" 
19878 if ozszlaroszorozz then PriütHer. "RH következő szirb 
cactumzk egyiket saram o :" 


1d82K if osl arosz ur o nsjgthen ErintHtpr."lger zzi9e zeim 
je 


then FPrintHPr.., "rahmen hinter 
aru o szhrift hoülg "; 

1118 if oszi or csz2Z or. aza then PrintHfr-. "úucbertraje 3d 
Jierz zúbtrahiere "; 

181728 if csl ar os2Z or oz3g then PrinttHtbre "műultipliziere 
Jividiere eotenziere "; 
198129 if csi or osz or ozz then FrintHtEr. "bildez werm sc 
hieifg asztana fuger o", 

19148 if asi or asz o or o csz then FErinttHtér, "zprarngmarke z 
Erináz o rüfe ", 

153150 if cs4 or cs5Z or azé ar cos1i17 ar oszd apr asaa then 
Printt8bro "betü "a 

101568 if osz4 or csiím then Printtbpro"z sz od o dm o hoDza !"; 
18179 if asz4 then PrintHPpr. "izt zu von mit durch oneber 
enn biz o ", 
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191828 if azszz4 then Ereiiatetté re, "wisáerhülg Hamm o", 

1AJ9A if casz4 or czzk then Print4ftbr.". "; 

1928N if oszd or cszA or oz2 ür azzá ar ezzi or csíz the 
n Prirt.HE d ka vs 

1921m if -16 then PrintHPr.. "Prograram ", 

jaggy if ké then PriintH$Ppr. "unterPragramm eat "; 

19228 if as7f or szig then Print.HPr."fliezz "; 

19248 if öz8 then PrintHpr, "begirne ", 

l1aZ25A if ozíl7 or csíd or azza or o özzg or ozil or aziBt 


hon PrintHEr."szamiegy ", 

1928A if csé ar ozíz3 or vsiz or osiz then PrintHpr. naz 

Hő; 

18279 if oz3 then Frinttir." Pende uende zonszt wende se 
14 Lenk 

18288 if czzli then Print.Her.. "billentgsukarakter idezmieil 
melkül "; 


19299 if oszl or szziú then Frirttpr., "idezoijel "; 
1929 it cszi gr o msil2 or osiz or szg then PrintHpr."e " 


1083 19 if zsiíg then PrintHtpr, "tk — "; 

1949a fesfeti 

19487 Priütker s 

19419 Print.HEr., "AH tovabbiakban a kovetkezz alaPzszzot 

SAPON s "a 

19470 if z 

19498 if 

19440 if Éhég Frintttér. " smigézatgzarizg] 

19458 if gajzi giza n Erintttér." "ig 

194EAR Print, eZRETURM?" 

1R47pa Jet em$ : if empűlszhreti31 then 

18459 PrintHEr. "Megnezemi, vanrg a Preaaramba 

19438 1§ v then PrintttEromi$-z 
j if T then ErrinttPr.z. 

1Aa318 Printtbr a 

1RSZA Práintápr, "Legfeljebb a kovetkező Pbontig vagy " 

18528 Printter. "zürkezdetig ker ) 

1AZz4dű if nzífri then ifgCr456 then 


26 zös? then 
sakhan 


nets,s then 95zuk 


1az4á2 PrintHEF , 
LEZS8 if nzsli them Priúintáttér. "AH következe zorim alveztam 


42MEkt : ütő 1654íg 


then Printtbromifisats 


. 
ri 
, 


LAS7E 
talaltam. 


them eriatHEr.z. " kardot 
r. "Falutatom a szzintaktiku 
za then j3ezüubá4atngg : szzuk azanam o: gata z 
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ir az4d6 then PrintHPr. "A Pontig olwvaztala !" 
eriatápr,  MesPrnbia Lim udsra kezdeni Ez 
szintaktikai elemzest frilytatni." 

z then azota 18643 


zel : gotm 198£4A 
49900 .: zata ZHAR 
Pál állás 
TEZBA, az z4ga, 1259a. 1260. 127 


écsztetsk ságágéság atálsás ánánbs 12788. 124Am. 12205. 


"T4oga, 14197. 14728M, 147294. 19498. 1 47E 
Erünt.HPr, che eizo"sMHimnzz ilyen szabaly!" 

em stoF 

JAR Kém alternativak kivalaszztaza 

AB rem 6 itb.az 

iF 
if 


retütn 
return 
petite 
vetüen 
return 
return 
returri 
retüteri 
Ketültvi 
retürvi 
return 
retünrvi 
retünreri 
retüneri 
PEGUTTI 
retürri 
tet lnreri 
retiltvi 
Fel reri 
retürei 
return 
retürea 


BIF FIEJTJ KIJ Ba 


; yt teri egét 
1531 then 
149 then 
12H then 

125 ther 
157 
1ld4 
127 


B 43 

s 

1. -h 
Ze 


then 


a Aaa] 
MERŐ 
an 


Ma da tú 


Jan ha Hi 
váz éa 


144 mú 
het YI gy E B 


ar 
1 ea pad sad fd d 150 1— 
E 2: váli 8 


jeti 

a 
it 

Tiz 

As 


0 Ti 


mm 


Pa BP) EJFJFIJ FL EJ FID FIPIP2 NE PIPI EJPATI FI POFJ 


:0 r0 (9 


z2zAR rem /ö2-/ utasiítasblokk 
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a Ete 


Kezét uit.) ett 40 al ) St. 


egtem 
reztülreri 
retlktevi 


128 AA 

za1A 

B ZEUGATYEZÁ TA] 

12Eka 

12618 

12E28 

12E2A 

it 2rked 
718 

12720 

í128km o voera s AM definizicz blakk 

if Szi3za then als 

if asií231 theri alzg 

retürvi 

vaz 7A3 Ez P ütve 

1§ azgg then als64d 

reftülreri 

rem 7187 exÉc 

if üzd2 then 

if azdi then 

if ar47 ame 

retürvi 

rem s11-7 lebkegobkcamtoz z 

if ar-d7 ai a€T572 them a. 

retürvi 


and 9-91 then als4 


eg) ta PFEGUKÁ 
EHEN als áz o: return 


Eetuk 


"127 lekegoFontaz szamri 
a 4; dj az46 then als2ag 
if szég thsn alség 
if Szi43 then alzsző1 
retürri 
rem 71327 lekegaüaPbontos szam—-2 
if 53-63 then alsé2z 
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eke ta 
2 íze tan 


12mekt 
15dak 
15410 
17274-8 
1722kR 


14138 
1 dzAG 
14718 
14228 
LAZAR 
14318 
14328 
1427 
144£A 
14418 
14d42A 
ism : 
1442E 
alsz 
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if SziA—ű then zizséz 
Ket ülrvei 


es 7-14/ eZ3ezzZ szam 
3247 and 9759 then alssz 


seta 

rem 7157 cFpegerat 
íf 
if 


Tot , 
the 1.47 s 
íf then alzáz : retüurri 
then als3zm : reétürn 
then 31551 returri 
then als5sz retürvm 


Peng K ani 
them alsi 


" atvitelri 

and aC(589 then alsá2z : return 
a-é4 and 9.91 then aisdz 

EGÉR 

rem da altragr ari 

ég újlzák then als2 

then als3 


rem as valtozuk definiadlasza 
if 95179 then alr§g 

retürri 

rem /29/ vzitazok definiglazarz 
if as4d tt alsiíg 

it zdő then alsil 

reetüre 

rim a karakter 


Szája] 


Kébevéj 
rem /227 SZamigay 
alszsy 
return 
rem szu 
if 3247 a 
if ar4E 
retürű 
rem szd, o ijiglolsz-i 

if 93-64 and 93-81 then alr4 : letsdák 

if gzsl4l ar 9546 or ú544 ar 9g5í7O ar 97145 
retürei 


if 35163 or 3-142 or 95126 or 37153 or 9-i66 then 


return 


then 


14349 maeivz or 35172 Or 37135 or §§5í74 or azi725 then 
alsz ez § 
144. ar azén or úri er azéz then als5 reti, 
ígggle a) 
L9163 retüréi 
14309 rem zZöv o mutatori 
14518 if 353234 then alség8 retür 
1452EF if 3064 and 9791 thenals:6ó63 retüri 
14538 return 
14ERA rem "28 billent 131.. Tlslláss 
14E1A if a€224 then alz tretürri 
jászA alsó 
3aKDÓ rem Pragramyeg 
sadiA Printttbr. hr éizochr e 1530"A szintaktikuz elemzest 
befeisztem, " 
3502Aa if felrb thén Erint$Pbr.fe:." hibat delssztam fol." 
anazaa if ferű then Erint8$br.chrf 131 "R Prugram szinrtakt 
íkusarn helizza!" 
35042 Prirtton, ürrerzSssszhr 825. 
elleselei zilüsg Pr cloze in zzz DU class bé 
ASE end 
ZADBA rem szemantika 
aal if szlzelőszd then buszbugrar gaszub 4AHARA gaz 
uk 42BAG zHRA 
902ZA í1f gk: :zü6 then bujsbuttag gozuk 199A7 ag 
ub 4zAaRa : dnb zhga 
aA if zafs-lasz bugaphurtút gazub 4A7Ea aüs 
ut gazgaa o: gat 
39Aa47 if di ÉKES. then Frint§ton. chr8 zs sz terpe ss hü, 


.: bugszö" a 39900 


ZBBSA iF si 
bús nn a 


ta 


Priat-Hou , chré e esz azhr ee bu$ 


az] u 9 44 si 51 th tt 


3 a : satakásen 4a8gA 

39A6H if 4: -13559 then Print.Ban. zhr$f igás szk pe s a b § 
.: bugzöt : gozsut 4pgAm 

seg7a azta 21 ala) 

JANAT rém szemantika 

39919 PrintHhtou. rre t esz sehr e (zös zhráírszátsels o, 
zsaza gozuk 49g9a 

:9A28 goto zANü 

JgAATE rem lesfeldo szim mág eltavolitasa 
471418 7 he retürmi 

angen S return 

4ORza tetiülreri 

49849 

kaláka 


41928 
41818 
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41978 
41925 
318728 
41948 
41985a 
419683 d 
41952 rem PrriinttHbr. chrir 19. chr Ef 150 forisstotsteb—-l: Fri 
ntkPpr.szfl4. next 

Aa lA7A retürri 

4]98R : 


retürri 


3.,15. : szzt1l 


karakter allit: 
nít£, then t§r a0suk SARA : til:si 
jEsmidtlt$ .t]l.i, : gsazcéfuf) 

tistit1 

rem Print§tfr.. zhráé 13. "Az aktualiz karakter : "9 
rem ErintHpr.chr$é ian etés "tt 


at AB elete. Z99.d.zöz 8 
la) 


sz 146, E.252.5.25 


Za été 9 eztet 


2. 252.6. 253. 5.141.253.2. 161252. 7. 252.5746 
ÉL; d eggye Cie(IA Eeen? 8 lak b 9 ADA 9 ELÉ 6 A A 9 9 A m 


49040 
JAASA da 
49080 da. 
49ATA da 
499ZA da. 


49098 da ,253,5. 259, 28.46, 253. 8.250 
49108 da 253.5.253. 20.250 


49118 dat 
33179 Jat 
J917292 dat 
49148 dat. 
a315Aa data 1472. dé. zona 
gajeg Jata 252. 93.167. 253. 2za 4£. am 
4917 data 2572.9d.1E2. 2597. 27. de. zak 
ta 
1. 
1 
t 
408 
h8 


el DO DT 


KújeA B C3CHEHEKR 


12 e 


bee 
z 
ez; 
been 
2 
2 
1 
3 4 
2 
Vö 
bei 
e 
Ta 


431908 data z22.18.16€4.46. 200 
459199 data zöz:1l, 152.46. 25 
aagzoa Jat. 
g321m da 
4922A da. 
JAa27A 


bla ret re 


a. 

a 252.172.122.257.14.48£.2z7A 
a IZ, 3.134, za3. 14. 46.254 
a zum. ld. KElt öez 
; jee gas és 


mez 


97247 Fegejese 
45250 z22.17 
a2zbo 252. 18 
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49ZTA 


(AGATA CN CA CN 


Hós) 


ASAGA 
49478 
49488 
494908 
495 AR 
49518 
49528 
gazaa 


ez 


8 EL teat tana A dd ÁL ta 


495408 
, 253. 23.258 


250 


42.46. 2058. 14.253. 13.258 


3, 18.z38 


meze 
ha tane ten 
,z22a.14. 250 
meze ag 
fer 


maz 
[age [-ap ei De 
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then alsz sab izt turmot éz tő 


oni19 if ils thzn if izsA then if izs9 then tészhefézs 
sv : return 

AZA if iiízú then anzub 2i19Am 
zOASA if ilsiízr and ilizüd then ilf-lk 
sORAA if ilsí171 then if igzíril then 


s if il$z" " then if igéz" " then 
51598 : 
7a if 


a 
ör 
6) 


izzlzz the n teszkeeg [E SEGbAN 


s" and izsi78 then töschr$(1767 


És 
S. 
ue) 

jé ! 
já) 


ari izsízja then 


then szaz pa 
AE VI 


" or iszü ar ids324 then gozut 


aztie : azto 
1" ar iíige"z" tten 


, Dj 


74 ar dlpetet ap gigzaT then tési o! a 


f-ertég-er ég iR 
3. Rt 8 


" then PrintHter9": ogosük 213288 0: auto 
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4.8 A PARSER OUTPUT kinyomtatása 


A PARSER eredményeit, amelyekre a szemantikai elemzésnél és a kódgenerá- 
lásnál van szükség, a következő programmal vihetjük ki a képernyőre, ill. a 
nyomtatóra. 


A kivitel eredményeként azt a rövidített változatot kapjuk meg, amely az összes 
szükséges információt tartalmazza. Vegyük például a kezdés nevű programot. 


A kezdés nevű program kivitele: 


a programazonosító definíciója, 
a kezdés azonosítója, 

a definíciós rész kezdete, 

a definíciós rész vége, 

a programazonosító vizsgálata, 
a kezdés azonosítója, 

a program vége, 

a program vége. 


Az első program vége a program logikai végét jelenti, a második a program 
adatállományának fizikai vége. 
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Frogramazonuszíta definizicia 
azanazita Le 
Jefiüicioz 
definicioz VEgzz 
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azoncazitoa : Szili 
Fred ar 
Frzar ata se 


Mintapelda : "kezdező 


PFrogramazcnazi 
szonzzíta : kezdez 
definicioz or 
definiziozg Ks 
Fragramazonaziíito vizzügalata 
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Mintapelda : "kiiraz" 


Programazcanozíta definicioja 
azcnozito : kiirasz 
definizioz resz kezde 


definicio: KEZZ VETTE 
kiiras süremelezzsel 
karakterlánc : Pzlda 


kiiraz 


karakterlanc : kiira 
gramazonczita wi 
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Frogram vege 
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Mintapelda : "ayomtata 


Programazzoncsiíto defimizloJa 
azonosíta : nyemtato 
Jjefinicios resz kezdete 
definicics KEZZ VEJE 
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Mintapelda : "fuggvenyek" 
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definicios resz kezdete 
azonosíto : teszt 
azonnsíto : egy 
definicioz resz vege 
kePpernyötorles 
soremelés 

kiiraz 

karakterlánc : nyomtato (14 7 keFernyo 
mönsbeva bei 

azonasito teszt 
süremelez 

ertek 3dasz 

lebegopantog szam 

ezesz szam : 1 
decimalis helyzet 

ejgezz szam : A 

ninc kitevm 

azadosito : egy 

dontes 

azonczitn : teszt 
operator z 

szonosító : Rgy 

eszkoz 

azancasito : nyomyati 
kiiraz sorsmelezzel 
karakterlanz : nyomtat 
szkoz 

azanuzíto : kepernyo 
különben 

kiiras zoreméelezzel 
karakterlanz : kePpernyü 
dontesz vefe 
Programazorosiíta vizssalata. 
szzonüzíta : valasztas 
Program edge 

Program vege 


Mintapelda : "danteztezzt. ő 


PFroagramazonnzzita definiziodJa 
azanosíto : dontssteszt. 
definicicz resz kezdete 
azonosíto : haram 

azünüsítü : negy 
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SS 


definizioz resz vegg 
kePernzüterlez 
soremeles 

ertekadaz 
lebszobantoz szam 


egesz szam : 5 
dezimaliz helyzet 
egesz szam : H 
ninzzs kitevü 
azanozita : haram 
ertekadas 
lebegopontaz szam 
egesz szam : 4 
dezimalis helyzet 
eZEZZ szam : H 


nincs kitevc 
szonzsíto : negy 
kiirasz zoremelessel 


karakterlamz : dönteszek: 
döntez 

azonczita : harszm 
aPeratar s 

azonozsíta :! ned 

kiiraz soremél 


karakterlamz : shh 
különben 
kiitraz soremelezs 
karakterlaaz o: sm 
dontes 

azonzsita : haram 
aperatar o 
azoncsítau : negy 
kiiraz züremel 
karaktérlanc : Zmhika ! 

ku. enber 

kiiraz soremeéleszel 
karakterlana : znirwza hiba ! 
dontes 

azonosiíta : haram 

operator sz 

azonosító : nem 

kiirasz söoremgelézsel 
karakterlanc : szhiba ! 
különben 

kiiraz söremelessel 
karakterlanaz : ssnincs hiba ! 
dontes 

azonosita : harom 


133 


operator /z 

azonosito : negy 

kiiras soremelessel 
karakterlanc : /sznincs hiba ! 
dontes 

azonosito : harom 

operator c 

azoncosíto : negy 

kiiraz soremglessel 
karakterlanc : Cnincs hiba ! 
dontes 

azonosító : harom 

operator €z 

azonosito : negy 

kiiras soremgleszsel 
karakterlanc : Csnincz hiba ! 
különben 

kiiras soremelezsel 
karakterlancz : Cshiba ! 
Hmöontes vege 

ku lönben 

kiiras soremélessel 
karakterlanz : (hiba ! 
dontes vege 

különben 

kiirasz soremelessel 
karakterlanc : /zhiba ! 
dontes vege 

dóntes vege 

dontes veüe 

dontes vege 
Programazoncosíto vizsgalata 
azonosito : dontesteszt 
Program vege 

Program vege 


Mmintapelda : "vegtelen" 


Frogramazonosíto definicioja 
azoncsíto : vegteleri 
definicios resz kezdete 
azonocsíta : szam 

azonosító : egy 

definicios resz vege 


ertekadas 
lebegoPpoantos szam 
egesz szam : 1 
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decímalis helyzet 
egesz szam : 8 

nincs kiteva 
azonosító : egy 
ertekadas 
lebegoPpoutosz szam 
egesz szam : Aa 
decimalis helyzet 
egesz szam : 9 

nincs kitevo 
azonosito : szam 
vegtelen ciklus 
azonosíto : egész 
kiiraz soremelessel 
azonosíto : szam 
összeadas 

azonosito : €g9y 
azonosíto : szam 
azonogitü : szam 
vegtelen ciklus vege 
szonosiíito : egesz 
Programszzonosíto vizsgalata 
azonosíto : vegtelen 
Program vedje 
"Program vege 


Mintapelda : "szaz" 


PFrogramazonosíto definicioja 
azonosito : szaz 
definicios resz kezdete 
azonosíta : szam 
azonosito : egy 
azonosito : szaz 
definicios resz vege 
ertekadas 

lebegoPpontozs szam 

egesz szam : 1 
decimalis helyzet 

egesz szam : 0 

nincs kitevo 

azonosito : egy 
ertekadas 

lebegoPpontos szam 

edesz szam : B 
decimalis helyzet 

egesz szam : 3 

nincs kitevő 
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azonosíto : szam 


grtekadas 
lébegoportós szam 
egesz szam : 193 
decimalis helyzet, 
edesz szam : a 


nincs kítevo 
azonosiítma : szaz 
vegtelen ciklus 
azonosito : egész 
kiiragz zorsz EEEÉSERET 
azonosíto szam 
sszeatjas 
azonosito : egy 
aszonosíto : szam 
azonosito : szam 
kimenet 
azonosíto : eJdesz 
azonosító : szaz 
oPerator z 
azonosito : zzam 
vegtelen ciklus vege 
azoncsíto : egesz 
Programaszonasiíito vizsgalata 
azonosító : szaz 
Program vege 
krogram veje 


Mintapelda : "kilebpesteszt" 


Programazoncsiíto definicioja 
azonosito : kilePeszsteészt 
definicios resz kezdete 
azonozita : gudrun 
azonosito : enne 
azonosito : monika 
definicios resz vege 
kePpernyotorles 

soremeles 

kiiras soremelgezsel 
karakterlanc : test 
soremeles 


értek adas 
lebegopont os szam 
EJESZ SZAM : 2 


decimalis helyzet 
egesz szam : B 
nincs kiteva 
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azonosítoa : gudrüri 
ertek adas 
lebegoPontos szam 
eJESZ szam : 2 
decimalis helyzet 
egesz szam : HR 
nincs kitevo 
azonosíta : monika. 
ertek adas 
lebegoPbontús szam 
egesz szam : 7 
decimaliz helyzet 
egesz szam : 9 
nincs kitevo 
azonosito : enn 
vegtelen ciklus 
azonosito : ciklusa 
vegtelen ciklus 
azonosíta : ciklusb 
vegtelen ciklus 
azonosito : cikluscz 
vegtelen ciklus 
azonosíto : ciklusd 
vegtelen ciklus 
azonosito : cikluse 
vegtelen ciklus 
szonosíto : ciklusf 
vegtelen ciklus 
azonosito : cíkluza 
vegtelen ciklus 
azonosíto : cíklush 
kimenet 

szonosíto : ciklush 
szonosíto : gudrani 
operator /z 
azonosito : enno 
kiiras sorémeleszel 
karakterlanc : hibas ciklush 
vegtelen ciklus vege 
szonosíto : ciklush 
kiiras soremelessel 
karakterlanc : Jo ciíiklush 
kimenet 

azonosíto : ciklus9 
azonosító : gudrun 
operator c 
azonosíto : ennőö 
kiiras soremelessel 
karakterlanc : hibas ciklugg 
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vegtelen ciklus vege 
azonosito : ciklusgg 
kiiraz soremelessel 
karakterisnez : jo ciklu29g 
kimenet 

azonosito : ciklusf 
azonosito : gudruri 
operator: Cs 

azonosíto : er 

kiiraáaz soremglessel 
karakterlanc : hibás ciklusf 
vegtelen zikluz vege 
azcnoziíito : ciklusf 
kiiraz zoremeleszel 
karakterlanz : Jo ciklusf 
kimenet, 

azonczíto : ciklusa 
azanosíto : gudraani 
aperator űz 

azonüzíto : monika. 

kiiraz sorémelezszsel 
karakterlanz : hibaz cikluszse 
vegtelen ciklus vege 
azonosíto : cikluze 
kiiraz zoremeléssel 
karakterlanmz : jó cikluss 
kimenet, 

szonosíto : ciklusd 
azanazito : enni 

oberatar 

azonosito : monika 

kiiras söoremseleszeil 
karakterlanc : hibas ciklusd 
vegtelen cikluz vége 
azonosíta : cikluszd 
kiiraz söremeleéessel 
karakterlanz : jo cikluzd 
kimenet. 

azconogiítg : ciklusc 
azanosíto : enn 

oPeratar sz 

azonosíta : menika. 

kiiras zorzmelezssel 
karakterlanz : hihbaz ciklusa 
vegtelen ciklus vesz 
azoncosíto : ciklusz 
kiiras söresmeléssél 
karakterlanc : im zikluszc 
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kimenet 

azonosito : ciklusb 
azonosito : gudrun 

üPeratar 57 

szonozíto : monika 

kiiras soremeléssel 
karökterlanc : hibaz ciklusb 
vegtelen ciklus vege 
azonogzíto : ciklusb 

kiiíras soremelézzel 
karakterlanc : in ciklusk 
kimenet 

azonosito : ciklusa 
aázünmziíito : gudrun 

öPerator z 

azoncsíto : monika 

kiiraz zsoremelezszzel 
karakterlanz : hibaz ciklusa 
vegtelen ciklus vege 
azoncsito : ciklusa 

kiiraz zoremelessel. 
karakterlanz 
kiiras söremele ££5 
karakterlanc : veg 
PFrogramazonzzitam v 
azoncsito : kilep 
érogram vege 
Fradáram veje 


Bet 
lt m-t Ef 
ta. 
— 
sed 
a 
bak 


fs 


mintapelda "7" szamlalaz 


s rálzohatar: telsahatar, 


at E itt 


jodd 
a! 


als :ohatar Je 
felsahatar, 
kizövss biz felzühatar wigderholz 


SEL, ELÉRE LK e 
ma a 1 


Dag ől) 


al 


mp 
S 


ig aaa ai 


feb a 
e 


ia 


MintaFelda : "Parteztő 


Frararamazoncozíto definicioja 
azonczito : Partest 
definiciszs resz kezdete 
azonosító : indexa 
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azcnozíta : indext 
azonczita : indeExz 
zanmcaszito : alszshatar 
azcnasíta : felszahatar 


azunazíta : szam 
azcucsiítoa : egy 


definicics FESZ VEJE 


szzalú 
ezgez 6.1 
decimalis helyzet 
egesz szam : BH 
ninzz kitevm 
zonosito : alsohatar 
rt.ekadasz 
sbegabantoz szam 
zesz szam : 14 
zimaliz helyzet. 
zam : a 


un S ) 4) 


ús rt E-NN m- 
rt a ít 
ím 
aj 


sza ht íg 
(e) 


2 Ft nm HSAZOHERES 


b CC erő 


tg a 
baj 
z 
er 
íz 
1 


EZEL ék át KET T 
j— 
sz 


5 És FG ae GOTT Faji 8 
1 am 


mdf min B (5 RT ét rely 


in N 
1 Hg rt ei m.t 


: Tt od dít úg 


nin éva 
azonozituú : Szar 
ertekadaz 

leb pontoz SZAT 
E3EZZ SZAM 1 
decimaliz heiszet 

ea SZZam fi 

mi kiteva 

az zita : ey 

ei 

azo index a. 
azncs alzobkat.ar 
azotmz 112 telzahatar 


jzetlbéén 


azni 
AZDTWIZ 
azanoszítua : felso 
cikluskezdet. 
ziklus 

azanosíto : inde 
azonczita : alsz .t. a 
azonüziíito : felzohatar 
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cikluskezdet. 
üsszegdaz 
azanaziíita eza 

zancasiíto szam 
azonasito szam 
ziklusveg 

citluzveg 

. szremeleézzel 

karakterlanz del s hCgye 
kiiraz süremelezzel 
azunozíta : szam 
Pradr3a3mazonczita vizszjzalata 
azoncsíto : Ppartezt 


Frogram veaz 
Pr KAN ETTE 


HintaPelda : "úugdraz" 


Frodramazunugiíto detiniziusda 
azonmcuziíta : WAPAZ 


ertekadasz 
lebegüPontozs szam 
szam szett ! 


ETZZZ 

JjJezimaliz helszet 
ZÜBEZZ végl : A 
ninzza kitevm 
álézulbek erti E34y 
ar jelzo 
azunoszíta : kezdes 
adatbevitel 
dzémosíito : teszt 
saremelez 

dan 


azcanczito : teszt 
oPeratar z 
azonozito : eg 
különben 

aaz 
azorwozitoa : kezdesz 

dantez vege 
Fragramazcnosíto vizsgalata 
sazüanuzíiíto : ugrasz 

Prodaram ve 
Pr-uaram 4 


1 
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MintaPpelda : "aPprogteszt" 
Frogramazonosíto definicioja 
azonoszita : aprogteszt 
definicios resz kezdete 
azonoziíitma : teszt 
azonosíta : egy 
dJefinicioz resz vege 
ertek adas 
lebegopontos szam 
egesz szam : 1 
decimalis helyzet 
ejesz szam : § 
nincs kitevo 
szorosito : egy 
ugras ielzo 
azonoziíito : kezdes 
kiiraszs söoremelessel 
karakterlanz : alprogram 1/2 ? 
adatbevitel 
azoncsíta : teszt 
soremelez 
dontesz 
azonosítoa : teszt 
oPerator /s 
azonoziíito : egy 
hivaz 
azoncsito : a 
ku. cnben 
hivas 
szonosítu : b 
Jontes vege 
ugras 
aznnosíta : kezdesz 
Frogramazonoziíita vizsgalata 
azonzzito : aPrognteszt 
alProgramazonoszsito definicioja 
azonczsita : a. 
kiiras zöremelessel 
karakterlanmz : alprogram 3.. 
alPproagramazonoziíto vizsgalata 
azonosito : a 
alprogramazonczito definicioja 
azoancsíta : b 
kiiras söremelesszsel 
karakterlanac : alprogram b. 
alprogramazanosíta vizsgalata 
azanosíto : b 
Fragram vege 
Program vege 
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5. A SZEMANTIKAI ELEMZÉS ÉS 
A KÓDGENERÁLÁS 


Ez az alprogram a MINIATUR programon belül a szintaktikai elemzéssel a 
miniatur syn adatállományába írt részeket elemzi. A mintapéldákat az előző 
oldalakon megtaláljuk. 


A következő programban a 61 000-es sortól kezdődően az az alprogram talál- 
ható, amely lehetővé teszi ezeknek a részeknek kódolt formában való kiadását. 
A program betöltése után a RUN 61 000 utasítást adjuk. A nyomtatón ekkor 
számok jelennek meg, ezeket a szemantikai szimbólumok táblázata alapján 
dekódolhatjuk. A szemantikai elemzés során azután a MINIATUR programból 
egy ASSEMBLER program készül. Az előállított ASSEMBLER programot a 
LOAD "MINI-ASS".8" utasítással tölthetjük be és listáztathatjuk. Így a MINIA- 
TUR programot összehasonlíthatjuk az ASSEMBLER programmal. A szemanti- 
kai elemzés és a kódgenerálás működését úgy értjük meg a legjobban, ha 
követjük a MINIATUR programok fordítását. 


Az assembler nyelvű programot a gépi kódban lévő ASSEMBLER-rel lehet 
lefordítani. A programnévként az ASSEMBLER megindítása után a MINI-ASS 
nevet kell megadni. 


P.4 


a szemantikai slemzez listaJa 


RA díim b£C(C5Ama: dím t/405A9I 

919 dim if491: izsB " lzrB 

19 Print"Sorszammal fordítsam ? €is/n)" 
1919 §et w$ : if wiász"" then 1BIB 

162A if wu$z"i" then zpz1 

158 Print"Fratcakall a nyomtatora (ni vagy a kePpPermnyare 
£k) kerüljan 7" 

1949 get wu$ : if uáz"" then 1049 

192598 if w$z"n" then Prz4 : goto 1988 
1980 if wáz"k" then Prz3 : gata 1958A 
1979ú §ota 1849 

1998 Print"Kerem az adatlemezt !" 

19998 Print. "(RETURHD" 

1198 get, u$ : if wuáz"" then 1198 

1119 cPén Er.Pr 

1128 oPen 15.3.15."i" 

11398 PrintH$il5."sz:iminirazs" 
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1149 irPut.t15.emn.em$.et. es 

1159 if enfzi then ERAZA 

1164 04-39 : aPkem 01.98. 00. "A:mini-aga. P.u" 
1179 gozub ERUHR 

ii88A inzZ : oFken in .3.im."A:mimiatur-symigzsr" 
1159 S0zub eg6Blg 

12907 PpczzA43 : rem basiz kezdocir 

12198 Pilzint(Pc-2565. 

1228 P25-Pc-P1$2Z53E 

1238 Printttcni. chr4(P2schrs$íP12; 

Z2ZORBA rera kik albrogram kiirasa 


2D1B cusz"/"1l1da $14" : sosub 358869 
292A Oufsz"jzr $ffd2" : gosub 55anm 
2a3A ou$z"1lda $144" : Sczub 59dA8 
234 ousz" jar $ffdz" : gozub 29989 
-höa cuszz"ida HE" : 9gazubk 59908 
2MhER ousz"sta szzal" : Jgaozub 5SSAHAAR 
za? cut-"sta Sszzaa" : gozub SZAKR 


2ABA ou£$z"imP deciaratian": gozsub S399AAG 
2099 ouszízvor .m" : gosub 39998 

2198 ou$z"1da $13" : Jozub 39999 

21198 cu$z"ijzr $ffdz2" : Jozukb 539999 


2128 ou$zírta" : gozub 59AmB 
2158 ousz"auzs am" : gosub 29999 


2148A oöu$-"igr $badd" : gozuk 59908 
2158 ousz"1dx $9" : sozsub S3ZEAA 
2169 ous$sz"ausp sm" : gósub 599409 
217B cu$z-"1da $IOD.x" : Jozub 59998 
21892 cusz"beg zuúuzz" : gosub 59929 
2198 ous$z"izr $ffd2" : Jgosub 559998 
2200 ou$gs"ini" : gosub 59930 

zz19 ousz"boz ausPp" : 9asub 239488 
zz22RB ousz"ause mh" : sosub 59998 
2239 ouszírta" : gozub 59808 

2249 cu$rzvein are" : gosub 599899 
222R cusz"1da HEZfFf" : Jjosub 598990 
2260 ou$z"isr $ffdz" : gosub 59999 
2279 ou$z"1ldx $9B" : Josub 598999 
2289 öous$z"einl .m" : gosub 59989 
2299 rcrusz"jar $fFcF" : gosub 59999 
2399 ou$z"sta $OZZO:.x" : 9dosub 59990 
2318 ous$sz"inx" : 9gosub I9999 

2329 ou$z"cmPpP Ed" : 9gosub 59999 
2338 ou$z"bne eini" : gosub 599899 
2349 ov$z"izr $ffd2" : gosub 399898 
2358 ou$sz"1da $$DZ" : gosub 598890 
23698 ousz"zta $£$23" : 9o0zub 598998 
2279 o0u$z"1da Ht$2ZA" : 9osub 259989 
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ousz"zta $zz" : g30sub 39992 

) ouszödexz" : 3azub 59449 

ousz"taa" : 9gasub 39998 

gusz"iar £b7úz" : gosub 539899 

ouszzörtea" : Jozub 539999 

nugz".z" : gosub 59090 

pusz". ot "tehrgl3dit"sor : "rchrósl34) : 9gosub 59398 


d outzösePpur ost o: úösuk 59909 
a cusz"igr o zvört : jJazub 539988 


ouszöldy £ zh" : gosuk 33992 


a ay$sz"1lda $ cl" : Scsub 59998 
a ousz"szr $able" : J0osub 398089 


couszőrts" : Jgozub 59988 


a ousz"jezlaration sm" : Josukh 599988 


tn eneni 
DAAD DDINDID 
D0D-IMÜNR id ii P.2 
ma DII DD UND 


rem szemantikai ciklus 

gettin.i£ 

gettimi$: if iáz"" then iza : g0to 5848 
iszascfi$, 

if izs5 then 9AMÜ 

if id-253 then 5809 

gettimig : izsscíi$, 


if izl then 10499 
if isz then 19588 
if i-3 then 11809 
if iz4 then 11590 
if iz5 then 12AAB 
if izr then 125AR 
if iz7 then 139299 
if iza then 135988 
if i-9 then 149Aa9 
if izlA then 14588 
if izi1 then 15994 
if iziz then 155p8 
if iz13 then 16AA9 
if iz-1l4 then 1E65AM 
if iz15 then 17A99 
if iz-i6 then 17599 
if izí7 thzn 158Am0 
if i-18g then 18598 
if izi19 then 15AmA 
if izza then 195998 
if izz1i then 29dAMg 
if izzz then 2A5SA9 
if izsz3 then 21489 
if izsz4 then 21588 
if iz25 then 22989 
if izz6 then 2258A 
izzr 


then 23499 
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szzA if izszs then 23548 
57349 if i-22 then 240808 
szo if iszt then zdöt4i 
szóg if izz31 then 25088 
szarA if iszsz then 25580 
5306 it izzz then 26ADU 
saga if i—34 then z2z65Ag 
n4aogn if is33 then 27AR9 
419 if izs£ then 275388 
m4áz2Aa if i-37 then 259d8 
-43A if is3£ then 225Aa0m 
ad4m if iz33 then 257HARA 


SARA Print.HPr.. "szemantikai hiba !I!ITI" 

salA ztapP 

eHHA if iszs4 then 7ARAB 

en1R if izzss then 31060 

ed2R Printttpr.. "szzermnáantikai hiba HI!!!" 

én3H atap 

9A9A rém valtazok definicimdia 

9019 if df-g then acsub 5E£g4M 

anza if df-A then me$z"a valtczok magyarazata a def .niz 
iczreszben !": ata 537 

3029 sozsukb 5EA4A 

an4n begzil$ : ty/zz : jJoazukb 57HEUA 

3954 if zcsi then me$z"3727 azünözíto mar definialt !": a 
to 5387üm 

aneg Sozub 27588 


SA7A c$-begt" .bl 237 : geozub 59408 
a49A gzta JAZA 
9A9a : 


19990 rem Progsramazoncosíto definicio 

19865 7csub 5£HAM 

19616 beá$zii$ : tujzi : Sozsuk S7ARB 

19a20 if sczzil then mesz"a Frogramazcanozsiíto mar definial 
t !":.gota 587A4 
19939 §csub 575 
196040 goto 5828 
19958 


512) 


LAZBA rem definizios resz kezdete 
192953 cu$-"imPp definiticnzende": Joazub 59RAR 
19597 cuszbeft"irmmerzus .bl 5" : Sczub 59AAR 


19519 df-1i1 : ata SAME 

1957A : 

11808 rem definicicz resz vege 

119952 ousz"ő"definiticnzende mh": Sgosub 539RBA 
119198 df-RB : gata SAHNH 

11929 

11598 rem Projramazoncasiíta vizsgalat 
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115985 S-zzub 56KAB 

ií1318 begsil$ : tuzzl : gozsub 37888 

11529 if zsczsA than met-"z Programzzonasítóo nem definial 
t 1".Aaata zav7gt 

115348 goto 5020 

11539 


12ARB rem Praram vegz 

12019 cu$gs"ö"ilda $$ZE" : gozuk 559949 
12929 cusz"ö1ldu 4$$íaz" : goszub 559298 
12929 cu$z"]er $abiz" : Josub 53898 
1204A cu$z"imp $adga" : gosub 59898 
12859 ou£$z".end" : sasub 599988 

129£R gota S0KR 

12878 : 

12589 rem alkrogramazonosítoa definicio 
17595 9$asub 369949 

12519 be$gziil$ : ty/-z2 : gosub 57999 
125209 íf szzi then megz"a Programazoncodsíto mar definisi 
t !".goto 538720 

125329 903Uúb 575984 

12535 ou$z"u-"4tbegt" im" : g0sUúUb 59989 
12549 Joto 5929 

12ZS5B : 

13298 rem aldbrogramazorosíto viízssalat 
12995 gosuh 56A9R 

129198 be$zil$ : tuszz : gosub 579A0 
13028 if scz-B then megz"a Programazonosíto nzm definial 
t !":.goto 5874a 


12939 ou$szírta," : gozub 59908 
13940 Soto 5A7Z9 
139853A : 


135809 rem kiiraz 
125196 scsub 17648 
13528 ota Aza 


12559 
Aze Genz 2ub mele afat 

3519 if i-c285 then megzőuj szimbolumot varok 1": gasu 
A magga : return 
12628 sozsuk 552dem 
i2E€49a if izs5 then ii8z"": sub 536849: gotma 13849 
136538 il§sz"": gosub 36549 


136522 dazdati1 

$zd Jgs$szmid$(lstrásld35.2.lenfatrigtd9a39-12 

12626 sl$z" 4mp o de"trdag : azzuk 299AB 

126£R atz" ,zt : aozsub 39AaR 

1ZE7Aa av$z", ha "zzhrálrg4orilátohr$fg4i : gosuk 5I9ARB 
12672 couds "de" 1rdagri 48 güsúub 2590 

12690 cugszöilds to ch" : gozuk 33 
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12696 cu$-"1da §H cl" : gsosub S39AJG 

ir cu$z"jsr $fable" : Sosub 5799A9 

12718 return 

125FItt befgziif$ : tuszzz : 90ozukh A7RÜR 

12919 if sczA then megt"az azanozíto nem definialt !":§ 
ato 387rAüm 

12828 Jgczuúub 54900 

ize39 cus$sz"jsr aus! : gosub 539099 


12049 retürri 

13858 : 

14AAB rem kiiraz soramelezszel 
1481A s0osub 13684 

14902a cusz"isr zeort! : Snsuk 52233 
14dAZ9 goto 5EZA 

14948 


145988 rem szremeles 


14510 ou$szö"jsr zvor" : Jgosuk S5ana 
145-£8 30ota SARAH 

14524 

120AH rem kepernyotarlez 

153918 ou$z"isr $e5d4d4" : gosub 5999a 
15928 goto 5AHA 

15938 


152990 rem kursöor oszlap 

155319 §0suúub 563299 

15529 if valfii$ocda then megz"oszloPpszam nazsobb mint 
ga 1": gcta SsZ7EM 

155328 if valtii$-21 then megz"oszlopszam kizebb mint 1 
ts: goto 587AA 


15540 ous$z"zez":. j70zub 39RAy 

isssz autz"isr £fffa" : sazuk 59808 

15280 ay$z"clz": gozub 39098 

15578 ouj$áz"1dy $H"tsetr$i-/valfil$2-1l.: 30zUúUb 358088 

12539 cu$z"jizr $rrffa" : gazub Szaam 

153538 goto SAzH 

ízemy : 

LEN rem kürzörzür 

1E51A acsuk S65HE 

1862 if valril$irzd then megz"zorszam nagyobb mint 24 
1": goto 5z7aRg 

16970 if valfil$oii then mesz"zzerzszam kisebb mint 1 !" 
jJato 5979 

1FA49 cuszőzező: gozukh 25sUüa 

1EGgSEú causz"izr $frfEá" : gaozub "ön 

1Enén évszőolgő: gozsub :saig 

1Eg76 cu$sz"ldx H"rátrffvalfil$0—1:: Sozuk S2AHRB 

l1eRan cusz"ijzr frffa" : sozub SsARA 

18099 anta 54A2A 
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168199 : 

128 rem aszii kiiraz 

ie312 30zukb SEski 

1528 on$z"1da $7"4il$: 30suh 5s5zANG 
isssű ou$z"jsr £rffde" Z7asub 35948844 
iésdg gotc 5HZ2Ü 

legaki : 

17008 rern eszkoz 

172190 zazukb 56Emta 

170280 if ilszökepernyzeü" then 172806 
í7a7d if ildz"nyumtata" then 172RBR 
179408 me$z"izmeretlen eszköz !": gotm 53 
172AB rem kePpermnye 

17218 ov§-" jar zenpr" ansub s28aa 
17220 nu$z"jisr $rfiz" jcsub 3799AMm 
17239 cusz"1da $t4". Ssozuk 539RAg 
17249 cu$szsz"jszr $ffuüz" axzuk Sa 
17258 goto SAZA 

17780 kem nyaümtata 

17310 nrtétő zá ta". gozub 52HAM 
175928 cug$z"zta 194": sozuk 39808 
1733 ÖNSSÉGbA 1868": gozub :sAda 
17342 cu$-"1da $H7": acsuúub 59898 
íivzna ouf-"zta 1859". gozukb SZ4nn 
173£9 cuász"1da HA": 3zczub SARAA 
175378 ous$z"ö"eta ií552": gazuúuk S9ARA 
17286 pusz" igsr $ffcn" aczub 22948 
172399 cu$zöőldx $4": 9gazub 33998Mm 
17499 műu$z"jer Iffc3" gozub 33090 
17419 voto 5828 

173998 rem keret 

17519 Sosub 5SE£ARA 

17529 ffs-1 

17529 if ilsz"fekete" then fF-g 
17549 if ilfzőfeher" then ffri 
175358 if il$z"Pircz" then ff5sz2 
175£M if il$§$z"turkisz" then ff53 
17578 if iilgz"lila" then ffzd 

17590 if il$s"zold" then ffs5 

17599 if il$5"kek" then Fff5sE 

17€20a if il$z"sarga" then ffs7 
17819 if ils$ző"naranzs" then ffsa 
17623 if il$sz"barna" then ffsg 
17630 if jigz"vilasosPbírasz" then ffzign 
17649 if il§s"szurksa" then ffs11 
17E5d if ils$sz"szurkeb" then ffs1z 
17660 if il$z"szüurkez" then ffs15 
178679 if ilsz/"vilagczszald" then ffs13 
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Fr 
[pi 
[a 


if ilgz"yilasozbarma" then ffs1l4 
if ffz--1i then megz"izmeret]len szim 


ansz"ö1da t"örztrifffi:. gozub 528989 
niuts"sta szzsk":. gozub 29488 

aato 59azA 

rem hatter 

acaszub 5£ARA 


if ilsző"fekete" then ff-g 

if il$-"fehzr" than ffsi 

if il$z"Piros" then ff-2z 

1 ilsz"türkisz" then ff5s33 

if il$s"1lila" then ffz4 

if ilsz"zald" then ffz5S 

if il$z"kek" then ffső 

if ilszs"zarga" then ffz7 

if il$z"naramzs" then ff:a 

if ilsz"barma" then ff-3s 

4 i18z wilagospiras then ff:1ig 
if ilgsz"szurkea" then ffz11 

if ilg$s"szurkek" then ffziz 

if ilgz"szurkea" then ff-15 

if iltzs"vilajcztiold" then ffzsis 
if ilgz"vilajzzbarma" then ff:1ig 
if ffs-] then metz"izmeretlen szin 


öusz"lda tötzitrálffo: gsasyk : 
ouszö"zta szzai": Jazúuk 259ggg 
acta 5azb 

reéztű irKaz 

aasuk 56 

ffzr1 

if ilsz"fekzte" then ff-id4d 
if ilsz"feher" then ffzz 

if ilgs"Pircaz" then ffzsz2ze 

if ildz"Purpur" then ffsis6 
if il$z"z-alg" then ff-3g 

if ild-"kek" then ff:31 

: 6 a il$z "sarja" then ffsli5g 
if iláz"v:an" then ff:1533 

if ff::"-1 then mefgz"izmeretlen szín 


oy§z"1da tötztrálffa: goz 8 
cusz"jisr :ffdz": gozukb Saga 
jgata sazk 

rem adatbevitel 

josub SEegAR 


pne 


gato 4 


anto 28 


17825 begzilg : tuzzz : Jozub 57098 
if sz-h then megsz"az azoncsíto nem definialt !":9 


ni) 


ota S5Szrün 

1984E ausz"v"izr sin" : aozub 559aHa 

19850 jzosuúub SZEM 

19866 goto 5SAZA 

19480 r 

194164 ax 

19424 be 

15942m iíf nem definialt !":§ 
ata 5970 

17446 jozukb 529378 

19458 gazuk : -bkiz 

12463 be$zi aazukb 57AGH 

1l347b if z zöaz azumzita nem definialt !": 
cta 597am 

19324 azzuúub Szata 

19490 azta SHZEI 

155206 rem ertekadaz 

159516 vagz" 

15524 acsúub s5kök: mozuúuk szukiti: gozuk s5zAHG 
19524 if izdi then 19488 

1957" gosukb SEesziM: vadziil$ 

15577 jozub szaga: Szzub SsHHE 

15548 if idsdz then 17EA8 

195528 vagzvapáiö. "s. anzüúb sezüktt vagzvattilá 
15559 goszub szét: gczuúuk szea 

153666 it i.-zi then 19388 

15618 vagzuabt"e" 

15626 zosub 5zkai: o szzüb szi 

1 if izs3 then 187üti 

19 : ÉL dát 1 "tem vagzuaptsa! 

1965 izaz then vaszuwakt 

197an iláz"": S0zsub 56548 

19718 vagzvaftilt 

125344 úczub 51908 

155916 30zuk 5EMIHM 

1292 be$zil$ : tuszza : Gosuk 57HAdR 

13 if szzf then me$z"az azonosito nem definialt.  !":§ 
ota azrAgd 

195481 dazdati 

199472 döszmid$fíztráCda: 2, lenűztregéda,1 10 
1994£ cutz" imp de"árdatk : Sozub 55948d 

185958 out$-" dd" aga ést sm": ib S3HAL 

195957 ousz" b"tatrilubii : sosub 559808 
193957 autz" .hk"tztrálvii : Jozub S35AAM 
193954 nu$z" .kötatrslvzl) : gozuk 559AAA 
192955 cu$z" .b"teatrilyzd : gosuk 55AHM 
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1295£ causz" b"tatr§(w4 azzuk SZAGA 
19986 mügz"ő"de"eda3r oo":  gaszub 52RAR 
19962 hiszbeg: z"dgd"aga$: jgazuk s4doca 
19376 befzhit: josuk SZAGA 

195358 acto JüzH 

19998 : 

-Matd rem cszzadaz 

zabiH aazsub 5EgRd 

2a02n betzil$ : tursz gazuk 57Aea 
-taZA if szzH then megsz"az szoncazito nem 
eto S27AM 

-aH49 jozub ZS4HOA 

-nnst gozubk SEGzü 

2ABEH befzilg tuamzg aosub 57gaR 
-agra if zc-A then mesgz"az szonosíto nem 
oto 587809 

2990 ov$5-"1dy ithb-"4be$: gosub 59A99 
29099 ou$r"1da $lb-"tbefg: sosub 59998 
24199 ous$sz"izr $bX367" 30sub 59908 
2n116 9gosub 5ER2B 

28129 bes$zil$ : turz3 gosub 57998 
-Rn1oB if sc-A then me$z"az azoncosita nern 
oto 397981 

291459 gosub 5I34A8 

2159 goto 59729 

2hSYA rem kivonas 

24518 90sub 56M0G 

29528 be$-il38 tuss3 gosub 537998 


zHSszA if scszB then megz"az szanosíta nem 


ato 53rün 


zkhodgg gasub S4dAm 
zdága acsub 36038 


zők be$zil$ tuxzz gcsub S7AgA 


zaarb if sczú then me$z"az azonosíta nem 
ate 587AA 

2529 cuúugz"ö1ldy $hb-"tbe$: 9osub S3HAH 
2298 cugz"1lda $1lb-"tbe$g: gsozub 53-39ARR 


2a6OK cu$z"izr $Easg" acsub 5980 
270614 J0zsub 56R38 
-24ezú begsil$ : tumz3 aczub 57ARBA 


cehézd if 
[1] he a 


zczg then megz"az azonczsiíta nem 


definialt 


definialt 


definialt 


defimia it. 


definialt 


definialt 


dJefinialt 


13 


pw: 


f 46: 


D 


o 


üt 


219044 sozub S4BAí 
212 gosuk nenzei 


21HEKH befzsil$ : tuj/sz : amzuk 3y7űOnn 
-lovA if sc-§B then mesz"az azorosíto nerm 


ot.o na7 aa 

2188 a euszöldg íthbk—" beg. úczukt 5SO6B 
218909 ousz"1da $1Ib-"tbe$: acsuk SZEHA 

21198 ou$z".jzar $ba2zag" : 90zub 59ARE 

21119 sozsuk SENZG 

z112A beszil$ : tyuzz3z : gozub 537980 

zlií7z8 if szzü than mefz"az azonaziíto nem 

ato 5zrina 

21148 sozub 534904 

21158 goto 502A 

21506 rem csztaz 

z21531H acsukh 5EKaG 

zi52a begzilil$ : tu/rz3 : gsozub 57AHA 

21539 if sczA then me$-"az azonosíta 

ota saram 

21549 hi$zbet 

215246 gosub 56057 

21568 be$gzil$ : tu/z3 : aosuk 57RRB 

21579 if szsrf then mesz"az azonoszíto nern 

ota 537AR 

21575 gasub 54AGgM 

21588 ou$z"1lda $hb-"4hi$: 9ozUb 39028 

21599 ou$z"1da tlb-"$thi£g: Sasub 559928 

2167 oy$sz"isr $hbAaf" : Jozub 59898 

21E£19 gosub 56738 

2l6ózy begziilg : ty/őz3 : 9osub 57898 

216398 if sczR then me$gz"az szonosíto nem 

ato 58780 

21649 9nzub 53000 

21650 goto 5829 

zzhDű rem hatvanyozaz 

22919 Sösub 56OWA 

22929 begzii$ . tuy/Azg : gosub 57889 

229230 if szcs-B then me$gsz"az azonosito nem 

ota 587gd 

229449 gaszub SZAHARA 

z2g5a gosuk 56078 

220FEA beszíl$ : ty-rz]3 : gosub 57ARB 
22970 if zczszA then mesz"az azonosító nem 
ata 527Ag 

z2zasá jgozsub 34408 

22639 cu$z"isr sásátátsái : gunzuk 59999 
22118 Jozub 56M3E 

zzi28 be$-zil$ : tazz3 : aczub 57AGA 


Jefiniaitt 


definialt 


definialt 


definialt 


definialt 


Jefimnialt 


definialt 


:Et 


ei 
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zzi29 if szzH then 
ata 33700 

zzl4á 590z2ub SZAHARA 
zzisb úüata Aga 
zza rem FUGTYETTA 
22518 30zuk 56ARBB 


2252A ffgz!" 
22530 if 
22548 if 


ilgz"3bszolut" 
il$z"aztanzenz" 


meás"az 


zk 


t.heri 


szszamszito 


nem definis.lt. 


tffsz"$hc5e" 
then ffiz"$s28e" 


z-SSA if ilgs"cosinuz" then ffá§z"$e264" 
22568 if ilgs"exponenz" then ffsz"$bfed" 


ezozgo it ii$á"tar" 
zzénb it il$z"vele 
az20lA if il$z"elaj 


zzozA if 
ezbzk if 
"26d4dd it 


il$85"negy 


22650 if ffszt" th 
aerag 
Z2EEA gosub 56AZB 


zzérü be$zil$ ai 
ze6od if szzf then 
eto 537AA 
z2zoga aozyb 54dakm 
cusztjsr "af 
zajrAan gosuk SZAHARA: 
22-10 if izz7 then 
zer 3osukb SEAEL : 
czpn begzil$ ta 


22910 if zcsfü then 
oto 3987 

22929 z0zub SZERB 
zzoza gota 3090 


zsgRA rem Pant 
2z:Jgütt rem dontesz 
Z35AT efszftl: iz 


Aza tant tana Tvnet ta 


zaat6 ef:ézmid$izt. 
zzaaib gozub SEM0g 
z30zd be$zil$ t.9 
zoda0 if 
ata near Aa 
zati zczub 24ER 
kb g0ozuk asAge : 
aksi 
azal : si sa ala 


ii TOL A ér ág 
il$z"1logsaritmus" 


il$z"2inua 


il$z"tangenz" 


then ff$sz"$bccr" 
then fFfgz"$b52ea" 


then ffiz"$b2Rdg 
tlen" then ff$gs"$E9497" 
el" then ffsz"3bc39" 


zetayok" 


then ffés 
en megz"i 
azs : gozub ar RAK 
megs"az azoncsito 


f§ amzzub 55gag 
3ozsub 35Aag 
2zzezHa 
a0zub 257998: 

Köszö aczub 57a99 
maetz"37z sazonosíta 


ziztil: ifizozef 


then ff$s:"3:2Eb" 

then ffsz"3bf71" 
"$ezb4d" 
smeretlen Fugadyerg 


nem definialt 


aozub ;7aam 


nen definialt 


BÉTIT izé és LENLEPEÉLLT ZIMA 


vasi gasiit 57daR 


gosub Z5AHt 


aozukb S76üki 


zcsfl then megz"az azcnczito nem definialt 


hg 


gata 


(ALÓ) 


tség 


if zzsfh t 


 gusz" ie 
ctáz" ]r4a 
augtztjar 
if ops43 
mpezgz 
zzézk if aPpz4d4 
ziobA if üp-d4 
azkek if upzá4dű 
ke if upzd5 
if ap-46 
j opzgE 
if cks47 
if cPz47 
if 0Pp-458 
da if oPzd4d3 
ngázt au$z" jmPp 
18 eyáz"tkh" kr 
za mat 5ara 
-ern kulcr 
efizmidgi 
KÉt e8 B 
el a kx 


PJPaO 


4 £IR 


m. 
sé 


24510 efgzmidft 
24526 7) aus: Sár 47 há hi 
adszs izzizril 
z2zahbáA rem veüte 
-snas gozub 5Et 
stee bed il 

zonzn if scz 

VEN 257 5) 


sadkeleztd kk 
zand4A gato SRE 
258 rem ezate 
zaaka üg med 
zasiő betsilils$ 
zosgzd if SES0. t 

pt": gata s3g7ea 
zaasi ou$z" imb 
cigdm mi$z"eg-" 


czsdó gata 7824 


SAAA 


hen megz"az szoncziíta rem definialt o !":9 


thb-"rbeg : 


t1h-"tbheg: EJ; ay 

$ezöb" : sozuk 532RAR 

then cuszz "zip o Há" : azmzub Z5AHR 
then ou$sz"bedg thötrefg : a rakat 


then cu$z"zrmnp o ta" : úngsub S9AGA 
then cuizö"bne th"4refg : aczuk 55ARA 
then ouszözmp HEPTT : aagub "3AAA 

then cautzöbeg th"srefő 
then ousz"vcmp HIS o: gűzub 
then ousz"bne th"tefé a 


then ousz"zraep HI" : moz uh S80AB 
then ousz"beg th"tefég : scszub S7güb 


then ontssvcmnmp HEFFE" lvE 
then cs§-"bne KELBPETE : aozuúub 2:9aga 
el"tzf$ : a0zú 
efft" om" : anzub 52AHA 


her 


EVE LG IZI Naa LENNEL LÁZ VR 
entefrfg : scaguk S9ARA 
efár! samt o: agazukb S2RGA 


erélicizid Z.lentetrátitizdi)) 
z1 f$ts am: gozuüukb 39084 


len ciklus 

[air 

tuszd o : gasub 5S7RAgR 

hen mzgzta cikluzazünosíto mar definialt 


len ziklus vege 


tuzzdá : jazukb S7ARÁ 
hen megzőva ciklusaznnosíto nem definialt 


e-"sii$ : aczub S5IdHA 
til$Er" sra" : sozub SaHAD 


tazzd o : gosuúub S57Ag9 
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SHE 
ed szea kelta] 
z61At 
zZ611A 
28128 
at.o 


ma aan men ún 


1 
kj 
tag éés 
oCáEAct lekoátkot Hl) 


mal 


58449 
26450 


ZESZA 
zkazki 
Gtő sv] 
zeadki 
zénok 
zenét 
z6nrü 


if szzü then me$gz"a 
ata 5257a 

sz$-bef 

aczuk zegzm 

begzilt$ : tuzsz jcasub S7AdA 
if sczH then me$-"az azcnuzit 
aran] 

jzczsukb 5diuba 

acsuk szaga: aoszuüuk ssARA 

aPz1 

aazut Sega 

besgzil$ : tujzsz3 aosúub 5S7Ada 
if szzf then meiz"37z azoamaziíta nem 
erlaii 

cau$-"1ldu thb-"4ttbe$: gozub S2d0H 
cuggz"1lda $tlb-"tket: gazub Satu 
önts" jar ttzsk" g0z7ub sag 


dazdat1 

dgaszmigi iz 
if opz4z then jesé Kéz 
j cpz-43 then au$-öhne 


Ha" 


Ste és 


if opz44 then cu$z"zmp Ha" 

if ap-44 then cu$-"bed az-"t 
if opzd4d5 then cuszöarap HEsIT 
if apz4áS then cusz"ez szett 


apz48 than cuszvamp HI" 


if ap-46 then 01$-"beg s5z-"t 
if opzdá7 then cu$z"ciap HI" 
if nopzd7 then cusz"bhne sz-"t 
if ap:43 then ousz"cmb HZ2s2" 
if oPp-z43 then nusz"bed sz-"t 
cuszöjmnp ez-ötzsk : gosuk 59 
misző"szeötdaga tt sm" o: gozsub 
ata Bek 
rem indexcikluz 
JOzu u.b zi AAH 
: taj g0zU4 37úá 
theri megztaz azonasi 
arak 
de$zbhe? 
azzzukh Bél 
be$gzii$ turzz gasuk SzH 
if szzü then mefz"az azanasi 


ge dartHa 


Han ie bet 
26590 gozub SERzB 


-zé6gA be$zil$ tajzíz ! gazsi 
JeGig if scsA then metz"az 
eto Scran 
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ub 57at 
zonüszi 


ta 


Jag 


am nem definialt 


definialt 


zosukt 


4a$ 


438 
gosut 
ja e ád 

jasutkt 


aJak 


agas 
RA 
a2HAR 


[9 
te nem 


a 
to nem 
2) 
t.0 Era 


definialt 


Jefinialt 


Jefinialt 


ziklusazonosíta nem definialt 


im 


ze6zü 
zebak 
zo4a 
27 aga 
avalki 
2/AZ2A 
zrazt 
27348 
2z7üsa 
27HER 
zrA7A 
zvA3B 
27038 
2/1989 
27119 
27128 
27138 
27149 
27128 
z/16M 
27178 
27189 
2ersnb 
20595 
z7a1B 
zrogzy 
zrozd 
zsdig 
25019 
zab "Aa 
28039 
22590 
z2031H 
zene 
Fázbttl a 
230d8 
23a18 
cage 
23830 
JAHA0 
30419 
sAHzH 
sag: 


z$szbhe$ 
sra s :§ slssit1 
ata 5üazaA 
rem cikluskezdet. 
begszux$k : Josukb 749989 
beszdx8 aazub SZAHARA 
cusz"iac"sz$gíizlelát" vm" : aasukh s90dA 
begzedxg : zazsub s güGi 
ceu$szöldu $thb-"tox$: Sasub 535ARR 
ousz"1da $lk-"tax$: S03yb 59499 
cusz"isr $bcsb" : üczúub 59a4E 
AJozdati 


assszmid$(str$(d97.2.lencstr$Cd9))-1) 
ou$z"acmp HI" : gozub 59989 

cusz"bne l1a"ra9i : gosub 599400 
cousz"jmPpP ije-r"4t3$(s81-12) : 9gosub 539988 
ogáéz"ia"4Aa984" om" : gozsub 59899 
ou$sz"1da t$t$s3":" gosub 59998 

ou$sz"1dy $£bf": gosub 59989 

orsz" isr $bbp67" : gosub 539899 
be$szdxg : gosub 57390a 

aoto 5RAA 

ren indezxzciklus vedé 

ou$z"jmp ia-"tz$(51-12 : 9gozub 59999 
ou$sz"jije-" taglal elot" vm" : gosub 539a99 
alssl-1 

soto 5929 

rem ugras jelzo 

a0sub 56690 

nu$sz"52-ttilét" om" : 90sub 598AA 
ü0t.a 5a2a 

rem ugrasz 

j2csub SERA 

o$z"jmp 2-"4i1$ : gozub 59999 

Jaota 5A24 

rem hivas 

z0osub 564Ag 

cusz"jar ue" til$ : gosub 59434 

goto 5029 

rem SOrzzar 

if apzi then ou$sz"jzr apur" : Gosub SZAG 
zettimigt : if i£z"" then i$szchr$rA) 
if sbsi then su$z"1ldx fötstrálazcti$g : aosub 38 


gettim if : if i$z"" then igzchrí(H) 
if zPzl then cu$sz"1lda H"tatráraszcii$i) : gosuk 539 


if sEzi then ousz"júzr $bdzg" : gozuk EIAMB 


157 


arat gat 3400 

snazg : 

3iKtüK retű Prodram vege 

319018 Printttou., czhr$ las zhr EM; 
51426 close ai 

si1078 zloze in 


319 close 15 
3l62t zioze Pr 
HJLAJA POLAC "  ÉPINE 
31őEd Print"Vege a szemartikai analizisnek, " 
31965 Print :Print 
310872 Print"Az aszsemblert a következőkebben tolthet. juk 
be :" 
31975 Print : Print 
z1A9A Print" load"rzhrirodgot"özzsembler "tahr r3491 tg 
219535 Print. : Print 
1898 Printő"Hz aszemblerprogramot a kovetkezokeppen tol 
thetijuk be :" 
31995 Print : Print 
311980 Print"loadöteéhreé ré zdütminirassötzhr Ed a 
31114 end 
J1gNN rem vaki atalakitaszza 
s1na5 if valívagoza then 5172A9 
31819 vizm: jóság vézlizg: veőeyalivag$i . if vr-B then vis 
129: v7zzabsíy? 
51829 if uv7fl tést ur a-H then vézyő-—-1 : u7ey7g2 : goto FA 
198728 
518536 vézy?7 
zíb4án if vaszz then vsésintCv8-2? : eözegti : goto S5ÍR4B 


alAZR vözvütvé 

migol vzzéyyegTy 79 Ze rT.T 

si87A vézyrkizö; vizvítintívzi  erzygeintév7e! 
minek erszyTégzk: vösi nt ey z TEN TeNB 

9199m u7sv 74256 : yvzzinténzd ezzyzena 

91104 uzzurtzmá: vtdsintluza  epzyyey 

J1116 return 

siízam vás: visfá: vzzszi:! vgzá:! vdásfttt return 
SszokA rem vatcaza az araumentuomba kerül 


szig cváz"1ldu Hthbh-"tbedf:. anzuúukb 594HA 
szüz augsc"lda Hb "4ke$r: jasub 5zEGa 
százói cawkz"jzr $basz" : jsozuk s7zúng 
azhág retkurmi 

száti rem faz a valtczoba kerül 
SZALA cutz"ldy $thb-"tbef: jJozsub 539GGA 


ni 


3a20 cusz"ldx tlbe"tbet: gozub 58 
AZÉ o z"ijzr tbbdd" : gosub 59A5E 


nene 
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sgeüt rem vatozn a fazrba kerul 


s4918 cugzöldu thbe"theg: azadüb 
sgáocH cu$szöilda $tlb-"tbhet: a aki 


94024 ou$-"izr $hbaz" : Jazub 39AHK 
s4áH4d retürri 


agazb : 

csatát rem következo sziíimbalum aliitaza 
szült Szsttin,if : if ig-"" then iz : 
Szazn issszfi$gi :! retürvi 

agdzd : 


JeHAN rem szoncazitat var 
anim il$z"" 
senib aczub asking 
szü if idszsz then metgzőúuj szimbülumot 
b 598508: retürri 
ségza gazub szan 


return 


pu; 


jegndát ilgző "if idonm then mefgs"azonozítot varak 


sub 538588: retüttri 

set szzüub 3598aR 

otúsa if isz5sna then vetüurri 
seg7d il$zil$tig : guta SEGEH 
s6gen : 

sEé30M rem karakterlancat var 
s6g05 ilgs"" 

56319 gosub 5359A8 


otost igy] 


seézzg if 122959 then megzőúui szíimbelumat varok 


b sza: returm 
5E6J39 goszub 359904 


56349 if i€297 then megs"karakterlanzot. varak 


zos9gAa: retürri 

56356 gosub S53AAA 

55636eg if iszs5 then return 
séj7g il$ziltti$ : gvota 5ERZÜ 
as37i 

Joad rem egesz szamot war: 
negam ilgz"" 

sss16 39suk 5SRAD 


sészn if idözsn then megző"ui szimbolumat v 


b S958G: return 
56529 gozub S5AAA 


sEsdA if iC5s3 then mesző"egesz szamot varok 


ezt: retürri 
sena gosub S5EBK 


sésék if izzsza then return 

sés7H ilgzilgtrit : Sotú ZEeMmIh 
apaaki : 

szün rem azcncasita mar  detinialtő?7 
sratm gezsíl 


bas 


T/d4: 


am31. 


ls 


Ez, 


aazsuk 5 
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far tf tu Il 
it b$ítozbes then if tirltoztum then szzi 
já t 


§ etüurri 

art rem szenozítoa bevitel 
avalk tb§i-l.zbeg: ter lssztas 
arozA ts1t1 

miszzld ret rvi 

avag : 

sz iHH rem hibara var asz 


prrint.HEr. chr$f iz. 
Eriat.HPr rassz 

Prriattpr. ch 1730 
Prriatöttér , ETRETURHE" 


get ut o: if wfivchráti3) then S8B5B 
gata 5AA 


rem hibara Var z 


PIGÉGEBB E b 
Printtpr.. zhrf el 
PrintáPr:, "CRETURM: 
get. u$ : if u$zrchráti2i then 59558 
retürri 


szraR rem hibara varaz 

ngr14 PrintHtbr.chr§Kk13) 

mare PrintHEr.meg 

fasl ig Printátpr a zhrát 134 

snrdádi Prrint.tPrr. "(RE 4 

carad get m$ o: if m$: fe chef 12. then 587930 
merek a te Aza 

sérra 

szü rem ou4 atiraza murba 

szil pispIitleniceuái ta 

szüz Plizint(Ppz/2596I 

adüsH pezpc-p1lázZsE 

nad zlszlti8 

naazA zisintízl-ezzse; 

nat zzszl-zikzsb 

magybi FriatHon.chrárezschrárPivchr$ íze zhriéz1) ca. chir 
$(Ha 

naüct PrintHtpr.ztrtizlat" "áirnt 

vál] Aa fe 9 E: 4 ádlldi 

sz dtsdszüjki, 


sEGGA rem hibazzatormna alyazasza 
cotniH inputtis s ememt.et.ez : if enzü then return 


160 


HZ Printtpr.chrár151zhr$(C137 
eped Printtpr.. "Hiba a lemezen !" 
édnndó Print.HPr. "hiba zszzama : "eri 
sgasH PriatHPr. "hibauzenet : ":em$ 
EHREH PrinttPr."hibaz saw o: "igt 
edző PrirtHPr. "hibas szektor : "ez 
enően Frint.HPrK. "Fragram teallt !" 
aga : tos :lazss [elk 

FHdla4 clozsz im 

elik clcsz 15 

ettilzH close FF 

Be vi 


190 open 5.2. 2. " miniatutmsamnizar 
lü16 cPen 4.4 
elüzn setHa.i$ : if zt:s64 
elHZS if iáz"" then ici : 
1034 isszzfigi 
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6. AZ ASSEMBLER PROGRAMNYELV 


6.1! Rövid bevezetés az assembler 
programnyelvbe 


A bevezetést azoknak szánjuk, akik még nem programoztak assembler nyelven 
vagy gépi kódban. Nem kívánunk teljes értékű gépi kód ismertetőt adni, csak 
azokat az utasításokat tárgyaljuk meg, amelyeket a továbbiakban használni 
fogunk. A könyvünkben ismertetett assembler nyelv a 6502-es, ill a 6510-es 
mikroprocesszor összes utasítását és címzési módját tartalmazza. 


Ha az assembler nyelven való programozás elvét néhány utasításon keresztül 
megismertük, akkor a későbbiekben nem jelent problémát ismereteinket to- 
vábbfejleszteni. Számítógépünk mikroprocesszorának nagy előnye az egysze- 
rű felépítés, és így jól alkalmazható tanulásra is. A mikroprocesszor egyszerű 
felépítése ellenére nagyon jó teljesítőóképességű, amint azt az Olvasó tapasz- 
talni fogja. 


A 6502-es és a 6510-es mikroprocesszorok között nem teszünk különbséget, 
mivel ugyanazokat az utasításokat fogadják el. 


A gépi programozásról csak annyit jegyezzünk meg, hogy az ASSEMBLER 
nevű program az assembler nyelvű parancsokat gépi kódra le tudja fordítani. 


Ezért elégszünk meg a sokkal egyszerűbb assembler nyelven való programo- 
zással. 


Ebben a fejezetben a számítógépünk felépítését egyszerűsítve fogjuk tárgyalni. 


A számítógép egy rekeszekből felépített tárból és a mikroprocesszorból áll, 
amely az egyes rekeszek tartalmát meg tudja változtatni. A rekeszeket 0-tól 
65 535-ösig számozzuk. Az assembler nyelvű programokban a számokat nem 
tízes, hanem tizenhatos számrendszerben adjuk meg, mivel a tizenhatos szám- 
rendszer közelebb áll a számítógép felépítéséhez. 


Kezdők számára azonban a tizenhatos számrendszer problémát okozhat, ezért 
a továbbiakban a tízes számrendszerbeli alakot is használni fogjuk. 


A tizenhatos számrendszerbeli számokat $-jellel kezdjük. Ezek szerint a tár 
$0000-tól $FFFF-ig terjed. A DISASSEMBLER nevű programban található egy 
rutin, amelyik a számokat egyik számrendszerből a másikba átalakítja. 


A tárban a programokat a mikroprocesszor hajtja végre. Ezek a programok az 
adatokat viszik át a tár egyik helyéről a másikba, ill. megváltoztatják azok 
értékét. 
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Ebben a fejezetben főleg az adatátviteli parancsokkal foglalkozunk majd. 
Az adatok értékének módosítására a C64-es programjait fogjuk használni. 


A mikroprocesszor működésének megértéséhez ismerkedjünk meg a regiszte- 
rek fogalmával. 


A mikroprocesszor regiszterei közül az alábbiakkal foglalkozunk: 


— akkumulátor; 

— X regiszter; 

— Y regiszter; 

— állapotregiszter. 


Az akkumulátor a mikroprocesszornak az a munkaregisztere, amelyet a leg- 
több művelet végrehajtásához használunk. 


Az X és az Y segédregisztereket gyakran számlálásra használjuk. Indexregisz- 
tereknek is nevezik őket (I. a címzési módokat). 


Az állapotregiszter a processzor állapotával kapcsolatos információkat tartal- 
mazza. 


Nézzük a következő példát! 


A 2055-ös tárhely tartalmát a 7256-os tárhelyre kell átvinni. A 2055-ös tárhely 
tartalma az akkumulátorba kerül, majd az akkumulátor tartalmát a 7256-os 
tárhelyre visszük át. Az ehhez szükséges utasítások: 


LDA 2055 
STA 7256 


Az LDA azt jelenti, hogy töltsd fel az akkumulátort, az STA pedig azt, hogy tárold 
az akkumulátor tartalmát. A rövidítéseket mnmnemoniknak nevezzük. A mnemo- 
nikok után ún. operandusok állnak. A mikroprocesszor az operandusokból 
tudja meg, hogy a parancs melyik tárhelyre vonatkozik. Az operandusok tízes 
vagy tizenhatos számrendszerbeli számok és szimbólumok lehetnek. A mi 
assembler nyelvű programunkban a szimbólumoknak mindig betűvel kell kez- 
dődniük, ezután bármilyen karaktersorozattal folytatódhatnak és hosszuk tet- 
szőleges lehet. Az assembler nyelvű programban a szimbólumokhoz mindig 
egy szám rendelődik és a gépi kódra való fordítás után mindig ez a szám áll 
a szimbólum helyett. Egy számnak a szimbólumhoz való rendelése az AS- 
SEMBLER-t vezérlő ún. pszeudoutasítással megy végbe. Erről részletesebben 
Az ASSEMBLER című fejezetben olvashatunk. 


A mikroprocesszor számára különböző lehetőségek vannak arra, hogy megta- 
lálja azt a tárcímet, amellyel az aktuális utasítás során dolgoznia kell. A külön- 
böző címzési lehetőségeket az LDA paranccsal mutatjuk be. A címzési lehető- 
ségek minden parancsnál mások, de a legtöbb címzési lehetőség az LDA 
parancsnál van. 
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Közvetlen címzés 


A közvetlen címzésnél az utasítás operandusa nem címet, hanem értéket 
jelent, vagyis az akkumulátorba a 77-es számot kell betölteni. 


LDA 4477 


Az akkumulátor tartalma tehát nem a 77-es címen lévő érték, hanem 77 lesz! 


Nullás lapú címzés 

Mit jelent a nullás lap? A tárat 256 laposnak képzelhetjük el (a számozás 0-tól 
255-ig tart). A tár első lapja az ún. nullás lap. Erre a lapra a fent említett 
speciális címzési mód parancsai érvényesek. Ezekkel a gépi kódú parancsok 
rövidebben és gyorsabban végrehajthatók. A nullás lapra általában olyan 


változókat helyezünk, amelyekre a program futása során többször is szüksé- 
günk van. Ennél a címzésnél az operandus értéke 0 és 255 között lehet. 


LDA 77 


A 77-es tárrekesz tartalma az akkumulátorba kerül. 


Nullás lapú címzés X index-szel 


LDX 8-1 
LDA 77, X 


A fenti két utasítás hatása a következő: 

1) az X regiszterbe direkt módon 1-et töltünk; 

2) az akkumulátorba a 7714X — 78. tárrekesz tartalma kerül. Az X regiszter 
tartalma tehát hozzáadódik a címhez, s így jön létre az új cím az LDA 
parancs számára. 

Az indexregiszterrel való címzés lehetőséget nyújt arra, hogy egy gépi kódú 
program végrehajtása után határozzuk meg azt a tárcímet, amelyikről olvasni 
kell. Ennek a lehetőségnek nagyon sok előnye van. 


.Nullás lapú címzés Y index-szel 


Ez a címzés csak két parancsnál, az LDX-nél és az STX-nél lehetséges. 
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LDX operandus, Y 

STX operandus, Y 
Az STX az LDX ellentéte. Míg az LDX-szel az X regiszterbe töltünk be adott 
értéket, az STX paranccsal az X regiszter tartalmát adott tárhelyre visszük ki. 


A cím kiszámítása az X regiszternél leírtakhoz hasonló, itt azonban az Y regisz- 
ter tartalmát kell figyelembe venni. 


Abszolút címzés 


Az abszolút címzésnél az operandus értéke 0 és 65 535 közé esik, így minden 
tárrekesz címezhető. 


LDA 47 000 


A 47 000-es tárrekesz tartalma az akkumulátorba kerül. 


Abszolút címzés X index-szel 


Ugyanúgy működik, mint a nullás lapú címzés X index-szel, csak az operandus 
0-tól 65 535-ig terjedhet. 


Abszolút címzés Y index-szel 


Ez is megegyezik a nullás lapú Y index-szel való címzéssel, a különbség csak 
az, hogy az operandus 0-tól 65 535-ig terjedhet. Ez a címzési mód egy sor 
további parancsra ad lehetőséget. 


Abszolút indirekt címzés 


Erre a címzési módra csak egyetlen parancsnál (JMP) van lehetőség, de a 
címképzés további lehetőségeinek alapjául szolgál. Szükség lehet olyan címek 
használatára is, amelyeket valóban ki lehet számítani. A kiszámított címet két 
tárrekeszbe helyezzük, és felhasználáskor a parancsban a két tárrekesz közül 
csak az elsőnek a címét kell megadni. A mikroprocesszor a tárból először az 
aktuális címet hozza elő. Miért van két tárhelyre szükség? Azért, mert egy 
tárhelyen csak O-tól 255-ig terjedő értékeket lehet megadni. Így egy lapnak a 
helyeire tudunk hivatkozni, de tudnunk kell még azt is, hogy melyik lapról van 
szó. Hogyan kell kiértékelni a két tárrekeszben lévő értéket? Ha az érték 8 
tizenhatos számrendszerbeli szám, akkor egyszerű a dolgunk. Az első két 
számjegy az oldalt, a második kettő az oldalon belüli helyet adja meg. 
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A $AAD2 tárhelynél kezdődik a szükséges cím. A cím legyen $FFD2. Ilyenkor 
a $AAD2-ben $D2, a $AAD3-ban pedig a $FF érték van. 

Az assemblernyelven való programozásnál a címet mindig a fenti módon 
tároljuk. 


A mikroprocesszor a parancsokat a tárból olvassa ki, és ha JMP parancsot 
talál, akkor a következő parancsot a JMP utáni címről olvassa, ill. számolja ki. 


JMP $FFD2 
JMP ($FFD2) 


Az első parancsnál abszolút címzést alkalmaztunk és a következő parancs a 
$FFD2-ben van. 


A második parancsnál indirekt címzést írtunk. 


A következő parancs azon a címen található, amely a $FFD2 és a $FFD3 
rekeszekben van. 

Indexelt indirekt címzés 

Ez a címzés csak az X regiszterrel lehetséges. 


LDX 34-10 
LDA (20, X) 


Az akkumulátorba töltendő tárcímet úgy kapjuk meg, hogy az operandus érté- 
kéhez (a mi esetünkben 20) hozzáadjuk az X regiszter tartalmát. 


20410 — 30 
Ebből a mikroprocesszor tudja, hogy a 30-as és a 31-es tárrekeszekben cím 
található. Legyen például a 30-as rekesz tartalma 10, a 31-esé pedig 1, így a 
cím 10-84 1x256 — 266-os. Az akkumulátorba tehát a 266-os tárrekesz tartalma 
kerül. Az operandus értéke 0 és 255 közé eshet. 
Indirekt indexelt címzés 


Ebben az esetben az Y az indexregiszter. 


LDY 3410 
LDA (20), Y 


167 


A mikroprocesszor a 20-as és a 21-es tárrekeszekben címet vár. Legyen a 20-as 
rekesz tartalma 10, a 21-esé pedig 1. Így ez a cím a 10--1x256 — 266-os 
tárrekeszre mutat. Ehhez a címhez hozzá kell adni az Y regiszter tartalmát, ami 
esetünkben 10. Így az akkumulátorba a 266-- 10 — 276-os tárrekesz tartalma 
kerül. Az operandus értéke 0-tól 255-ig terjedhet, a mi esetünkben ez 20 volt. 
Mindenképpen nullás lapú címről van szó. 


Relatív címzés 


Ez a címzési mód az utasítások speciális csoportjánál a feltételes vezérlést 
átadó utasításoknál fordul elő. Mit jelent a feltételes vezérlést átadó utasítás? 
Ez olyan átirányító utasítás, amelyet az állapotregiszter tartalmától függően 
hajtunk végre, így egy programon belül elágazások is szerepelhetnek. Az 
elágaztatáshoz az állapotregiszter tartalmának ismertetésére van szükség. 


Az állapotregiszter 8 bites, ezek tartalma egyenként lekérdezhető. Az első bitet 
Z-nek nevezzük. Egy bit értéke 0 vagy 1 lehet. Így sok különböző átirányító 
utasítás kiadására van lehetőségünk, ezek közül mi most csak kettőt emelünk 
ki, a BEO-t és a BNE-t. 


BEG operandus 
BNE operandus 


Az első példában: ha Z értéke 1, akkor az operandus értékének megadásához 
ugrunk, ha Z — O, akkor a soron következő parancsokat hajtjuk végre. A vezér- 
lést átadó utasításhoz képest 128 tárrekesszel lehet vissza és 127 tárrekesszel 
előre ugrani. Erre vonatkozik a relatív címzés elnevezés. 


Az assembler nyelvű programokban a címkéket is lehet használni. Ha az 
operandus egy ilyen szimbolikus címke, akkor az elágazásnál a program ide 
ugrik. 


A második példában: ha Z — 0, akkor a program nem vár az operandus értéké- 
re, hanem a soron következő utasítást hajtja végre. Egyébként az előbbiekkel 
azonosan működik. 


Hogyan kerülnek az információk az állapotregiszterbe? Sok utasítás befolyá- 
solja az állapotregiszter egyes helyeinek a tartalmát. Vannak utasítások, ame- 
lyekkel közvetlenül beállítható az állapotregiszter helyeinek a tartalma, más 
utasításokkal ez a tartalom törölhető. Ezt a későbbiekben részletesebben is 
leírjuk majd, de előbb nézzük az utolsó címzési módot. 


Implicit címzés 


A cím magából a parancsból látható. Lássunk ABC sorrendben néhány ilyen 
parancsot! 
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DEX 


DEY 


INX 


INY 


NOP 


RTS 


TAX 


TAY 


TYA 


TXA 


: decrement X Reg by one 
(csökkentsd X regiszter tartalmát eggyel). 


: decrement Y Reg by one 
(csökkentsd Y regiszter tartalmát eggyel). 


: increment X Reg by one 
(növeld X regiszter tartalmát eggyel). 


: increment Y Reg by one 
(növeld Y regiszter tartalmát eggyel). 


: no operation 
(nincs művelet, üres utasítás). 


: return from subroutine 
(visszatérés az alprogramból). 


: transfer Accumulator to X Reg 
(az akkumulátor tartalmát vidd X regiszterbe). 


: transfer Accumulator to Y Reg 
(az akkumulátor tartalmát vidd Y regiszterbe). 


: transfer Y Reg to Accumulator 
(Y regiszter tartalmát vidd az akkumulátorba). 


: transfer X Reg to Accumulator 
(X regiszter tartalmát vidd az akkumulátorba). 


Még néhány olyan utasítást ismertetünk, amelyekről részletesen az irodalom- 
jegyzékben felsorolt könyvekben olvashatunk. 


CMP operandus: 


CPX 


CPY 


JMP 


compare Accumulator and Memory 
(az akkumulátor és a tár tartalmának összehasonlítása). 


operandus: 
compare X Reg and Memory 
(az X regiszter és a tár tartalmának összehasonlítása). 


operandus: 
compare Y Reg and Memory 
(az Y regiszter és a tár tartalmának összehasonlítása). 


operandus: 


jump to new location 
(ugorj egy új utasítás címére). 
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JSR operandus: 
jump subroutine 
(ugorj egy alprogramra). 


LDA operandus: 
load Accumulator 
(tölts az akkumulátorba). 


LDX operandus: 
load X Reg 
(tölts az X regiszterbe). 


LDY operandus: 
load Y Reg 
(tölts az Y regiszterbe). 


STA operandus: 
store Accumulator 
(tárold az akkumulátor tartalmát). 


STX operandus: 
store X Reg 
(tárold az X regiszter tartalmát). 


STY operandus: 
store Y Reg 
(tárold az Y regiszter tartalmát). 


Ezzel a fejezettel azt szerettük volna bemutatni, hogy az assembler nyelvű 
program az utasításokat hogyan hajtja végre. Az assembler nyelven való 
programozás ismertetésével sok jó könyv részletesen foglalkozik. A fenti feje- 
zet elolvasása után ezekben a könyvekben már sok minden ismerős lesz. 


A következőkben az ASSEMBLER és a DISASSEMBLER programok utasításait 
tárgyaljuk és ezekről egy-egy teljes listát mellékelünk. 


170 


6.2 Az ASSEMBLER 


Az ASSEMBLER-re akkor van szükségünk, ha egy assembler nyelven írt prog- 
ramot gépi kódra akarunk fordítani. Miből áll egy ASSEMBLER program? 


Egyrészt olyan utasításokból, amelyeket assembler nyelvből gépi kódra kell 
fordítani, másrészt olyanokból, amelyek az ASSEMBLERt-t a programmal kap- 
csolatos információkkal látják el. Ezeket nevezzük pszeudoutasításoknak, mi- 
vel a gépi kódú programban már nem jelennek meg. A DISASSEMBLER ezeket 
az utasításokat már nem tudja visszafordítani. Azok az utasítások, amelyek a 
gépi kódra való fordítást végzik, annak ellenére, hogy a programok nagyon 
leegyszerűsítettek és nem tartalmazzák az assembler nyelvű program minden 
információját, a DISASSEMBLER-rel mégis visszafordíthatók. 


Az assembler nyelvű programokat ugyanúgy lehet írni és tárolni, mint a BASIC 
programokat. 


A megjegyzéseket az assembler nyelvű programokban ; jellel kezdjük. Ha az 
ASSEMBLER egy ; jelet talál, akkor tudja, hogy a sor hátralevő részét figyelmen 
kívül hagyhatja. A megjegyzések egy soron belül bárhol kezdődhetnek. 


10 Ez egy megjegyzés, ami 
20; a sor végéig tart. 

30 LDA 12; töltsd az akkumulátorba 
40; a 12-es tárrekesz tartalmát. 


Az üres helyek elválasztójelek, az ASSEMBLER programok legkisebb építőele- 
meit választják el egymástól. Egy utasítás a sor végéig tart. Minden sorba csak 
egy ASSEMBLER utasítást szabad írni. 


Operandusok 


Az operandusok 10-es vagy 16-os számrendszerbeli számok és betűvel kezdő- 
dő, tetszőleges hosszúságú karaktersorozatok lehetnek. 


10-es számrendszerben 15 
1000 
16-os számrendszerben $FFFF 
$0D 
$1234 
karaktersorozatok otto 
címke 1 
mintapélda 
uÍ7éi 


Az akkumulátorokra vonatkozó léptető utasítások: 


ASL ACCU 
LSR ACCU 
ROL ACCU 
ROR ACCU 


Az implicit címzési utasításokat, mint pl. a BRK-t a megszokott módon kell 
felírni. 


Direkt címzés 


Az utasítás felépítése: mnmemonikkal kezdődik, utána egy üres hely, ezután dt, 
majd tetszés szerinti üres hely következik és, végül az operandus. 


LDA 3 otto 
AND dt otto 
ADC 3 13 
ADC 4 13 
CMP dt $12FF 


Nullás lapú és abszolút címzés index nélkül 


Az utasítás felépítése: mnemonik, legalább 1 üres hely, operandus. Az operan- 
dus nagyságától függően nullás lapú vagy abszolút címzés megy végbe. Ha az 
operandus egy név, amelyet az assembler nyelvű programban csak később 
határozunk meg, akkor mindig abszolút címzés megy végbe, mivel az AS- 
SEMBLER a forrásszöveget (az assembler nyelvű programot) csak egyszer 
olvassa el, hogy időt takarítson meg. 


ORA otto 
STA 234 
LDA $FE 
STX 12345 


Nullás lapú és abszolút címzés indexszel 


Az utasítás felépítése: mnemonik, üres hely, operandus, vessző, végül X vagy 
Y, aszerint, hogy melyik regisztert használjuk. 

STX otto, Y 

STY otto, X 

STA $44, X 

LDA 123, X 
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Indexelt indirekt címzés 


Az utasítás felépítése: mnemonik, tetszőleges számú üres hely (1 kötelező), 
kerek nyitó zárójel, tetszőleges számú üres hely, operandus, tetszőleges szá- 
mú üres hely, vessző, tetszőleges számú üres hely, egy X, végül kerek záró 
zárójel. 


LDA (otto, X) 
STA ($AA, X) 


Indirekt indexelt címzés 


Az utasítás felépítése: mnemonik, legalább egy üres hely, kerek nyitó zárójel, 
tetszőleges számú üres hely, operandus, tetszőleges számú üres hely, kerek 
záró zárójel, sok üres hely, vessző, tetszőleges számú üres hely, végül egy Y. 


LDA (otto) , Y 
STA (123) ,Y 


) 
Indirekt abszolút címzés 


Erre a címzési módra csak a JMP utasításnál van lehetőség. 


JMP ( 12345 ) 


Relatív címzés 


Ez a címzési mód csak a feltételes ugró utasításoknál használatos. 
Az utasítás felépítése: mnemonik, legalább egy üres hely, operandus. 
Az operandus ebben az esetben egy címke. Erről még később lesz szó. 


BCC címke-1 
BPL kimenet 


A pszeudoutasítások az ASSEMBLER-t vezérlik, ezért csak közvetve hatnak a 
gépi kódú programra. Az utasítások mindig egy ponttal kezdődnek. A legtöbb 
pszeudoutasításnak is van mnemonikja. 


Ha egy MINIATUR fordítóval készített assembler nyelvű programot vizsgálunk, 
sok probléma magától érthetővé válik, és egy olyan példagyűjteménnyel ren- 
delkezünk, amit bármikor tovább bővíthetünk. Ha már kellő gyakorlatunk van, 
akkor a lehető legjobb assembler nyelvű programot tudjuk készíteni. 
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START utasítás 


A START utasítás határozza meg azt a tártartományt, ahova az ASSEMBLER 
program kerül. Az utána következő operandus jelöli ki a kezdőcímet. 


. START 2047 
.END 


. END utasítás 


A .END utasítás közli az ASSEMBLER-rel, hogy a programnak itt vége van. 


.MARKE vagy .M utasítás 


Ezzel az utasítással definiálunk. A címkékhez az a tárcím rendelődik, ahol a 
következő gépi utasítás képződik. A címkét arra is használhatjuk, hogy az 
akkumulátort a fenti tárhely tartalmával feltöltsük. 


Címke 1 .MARKE 
Címke 1 .M 


.EGU vagy .E utasítás 
Ezzel az utasítással lehet a változóknak értéket adni. Az ASSEMBLER futása 
után a változó helyén mindig a változó értéke szerepel. A .EGU utasítással egy 
változónak csak egyszer adhatunk értéket. 

GÁBOR .EGU $FEFE 

BALÁZS .EGU 123 

ANNA .EGU ÉVA 

ANNA  .E ÉVA 
. VAREGU vagy .V utasítás 


Ez az utasítás egy változó értékének módosítására szolgál. 


ANNA .VAREGU KATI 
ANNA .V ILDI 
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.BLOCK vagy .BL utasítás 


Ezzel az utasítással adatok számára foglalunk helyet az assembler nyelvű 
programban. Az utasítás mögött álló operandus a lefoglalandó tárhelyek szá- 
mát adja meg. Ezek az utasítás után következő helyeken lesznek. 


. BLOCK 555 
:BL PALI 


. TEXT vagy .T utasítás 


Ezzel az utasítással tároljuk a szöveget attól a helytől kezdődően, ahol az 
utasítás áll. A karaktersorozat elejét és végét idézőjellel kell ellátni. Az első 
idézőjelet nem tároljuk, de az utolsót igen. Egy nulla értékű karakter is kerül 
a karaktersorozat végére. Ezt az utasítást általában az adott szöveg későbbi 
kiírásához használjuk. Tudnunk kell a címet is, ahol a szöveg áll, ezt a címet 
átadjuk egy ROM (Read Only Memory; magyarul: csak olvasásra használható 
tár) rutinnak és ideugrunk. Ezután megkezdődik a szöveg kiírása. Nézzük 
ehhez a .COUNT utasításnál lévő példát is! 


. TEXT , halló itt vagyok!" 
.T ,ez nagyszerű!" 
:BYTE vagy .B utasítás 


Az utasítás lefoglalja a következő tárhelyet és belehelyezi az operandus érté- 
két. Az operandus értéke ennek megfelelően 0-tól 255-ig terjedhet. 


.BYTE 66 
.B FERI 


:.DBYTE vagy .DB utasítás 

Egy 16 bit információt tartalmazó operandus értékét két 8 bites információra 
alakítja. Ennek a kétszer 8 bites információnak lefoglalja a következő két 
tárhelyet és belehelyezi az információt. A behelyezés sorrendje: felső byte 


(magas helyiértékű), alsó byte (alacsony helyiértékű). 


.DBYTE 256 
.DB 254 


Az első utasítás hatására 1 és 255, a másodikéra 0 és 254 kerül a tárba. 


175 


.WORD vagy .W utasítás 


Ez az utasítás a .DBYTE utasításhoz hasonló, de itt először az alsó, majd a felső 


byte tartalma tárolódik. 


. COUNT vagy .C utasítás 


Az utasítás hatása a következő: amikor az ASSEMBLER elindul, akkor a CL és 
a CH szimbólumok egy táblázatba kerülnek. Ezek a szimbólumok értéket kap- 
nak. A következő információ címe két 8 bites adattá alakul át. A CL egyenlő lesz 
az alsó, a CH pedig a felső byte tartalmával. A későbbi utasításokban előforduló 
CH és CL változók helyébe azok értéke kerül. Az értékeket a . COUNT utasítás 


aktualizálja. 


Írjuk ki: Anna egy aranyos kislány 

JMP TEXT-1 :ugorjuk át a mondatot. 

. COUNT 

. TEXT , Anna egy aranyos kislány" 

TEXT-1 .MARKE Az ugrás címkéje. 

LDY 4CL Az ugrás mutatóját töltsük 
LDA HCH sa ROM rutinba. 

JSR $BATE "Ugrás a ROM-ra. 

LDA 313 ;Soreltolás, karakterbetöltés. 
JSR $FFD2 "Ugrás az operációs 


rendszer kiíró rutinjára. 


Remélem kedvet kaptak az assembler nyelvű programozáshoz?! 


P.5 


az aszsembler lizta.iag 


455ag 
45919 
45929 
45738 
42949 
45920 
4597a 
451989 
453118 
479084 
a9pa7 
487019 
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oPen15.3.19 : PrintHti59."1i" : Printchr$f14) 
Print" EXKEKKK Kerem helyezze be MIGENÖKK" 
Print" KEREK az adatlemezt KGK ÁEE KT 
Print" XXKKKRKEKK ZRETIJRMN? KKK KK" 
get FfE:if FfsCLchr$C131 then 45948 
PrintHtiz."i" 

intutti5 em emt:.et es 

if endzn then 459198 

zlosei15 

anta 495579 

Feri 

Print" KEKKKKK ZRETURH- KEKKWKT 


Jen Jet, u$r:if nádszhrsél1532 then 48929 
42828 zyz 2976 
49997 Print, cChr$(C14) 


49999 rem KER i kek assembler 

5A981 aPen 19.9.19 : Printkil3, "ii" 

JAJAZ dim f$f15Rp2.I$É0SdA ir 2AR nt zRa , nt 2AaB? , 234992 
, SK 4pa. 

Adana lsz : fed : Fosziza : Pmskic : nzA : szg : 1$r(Arz" 
ah" o: i1$íiszval" : FazAa 

apAA4 tiz" RHERNRAR" 


sans Erint" Rz azzsmbler Program sgzg o: " 

aA input" "anak 

jaddv far tsz to lenína$ki : if midffnagt.olddz " then 
mt. 


nkponz nagszleftálna$otelia : Print" " 
sAR1A Jgozutb EKERA 


-adRil open 35.2.3., "9: "annat bort : amnszub 5ASAR : if enf 
rA then 49A98 

sABiÍZz eézáitesé ő hi : if stCcsA then 45KHAGg 

anai14 azszzzfügi : hsazzihgi 


SAR1E mt sástz ségét : alsad-z :. goto 39399 

nana gsazszub 5a4am 

3AAZB if 4 z6 then 23398 

DOAZA if az then Frint"megizgszez";: goto 3A3AR 
aRHERA if év then SE7RR 

JOREZ if PzJ4 then 5S94-zH 

-o24gA if P2l2z7 and PZzg4 then 519789 

Jazz íf P-/l253 and Pő3z then bízbitchr$(Pp) 

nozén gato SURZE 

naaa azh.Ppsajalsaltl JetHa há: ifeteráthenkrint Print," 
endi hiadszik 7": gotosziRa 

saga if hás"" then hr: aota 53413 

39419 hzrazzíhri 

sa4iz retürri 

an4aza bázbőtehrg( b) 

nosza sozub 39aom :if Psz4d then bízszbőtzihrg(P) : gota 5B 
Aa29y 

596449 if PzA then 53H0-A 

sgazn gota 39421 

:g4agag : 

JoSGA rem E$tXE$XK uj sor kezdodik 

gajzgi : 

snasaZ if EZT" " then Sosub 51298 

znsa4 if tA3-"1" then fszfti: fglfozszntt" Pzzeudoutasíta 
zt varom " printfőtf 

Sasas tasztn" : fágezn" : exzg 

54597 if aizad then 39517 


kH 


T77 


728519 


a::za1 ter aZ-a3 to ad-? J3o0zub 29499 next az 
sdal2z adzgtijgékh 
letolás j30zub 5A4AR aosub 394E9 
Jdr znzgtazeth zn$-"zor "tstr$(zn 
kft Frint. Print. "zOr Mg 
SASZS gosub 539492 
JAz 8 goto s9aza 
saz4 e 
singmés rem xgtáx blank-et talalt 
agral : 
agd7iA if b£-"" then 54928 
m—A712 if (eFfFt3F(b$r.lozchr$á-734) then b$zszbátchrAfP) : Sato 
aon2zRA 
zgyi5 if bBEZ"R" or. b" " then 30928 
-Hd717 if hsz then 39828 
ny713 if exs1 then JRAazA 
sO713 if tAaRTz n" and hó1l69 and hil73 then guzub SR4RA 
1 ex .: Gü0ota 59Aa70O 
Ja7zA gosúb a1288A 
J87s0 mota 5AHzZa 
sar73 31 H 
zoSeHA rom KEXEKK hibazzatormna 
5ASA1 ! 
ad3g19 inkutti5s. em emf set. es if enzA then return 
saszd Frint" XtEXE Hiba a lmezen ! KtkEkK" zicss £ 
adzsb Print" $káékrtk hiba szama. 1" Geri 
sdz4A Print" ÉEtKxEEk hibauzenet ro": Print" $ikkk o" 
em? 
sRZZB Print" $$EXt hibaz zaw ANNLABBO ez 
skzeRH Print" tékrk hibaz szektor : V.gz 
sdart Jgato EZ799 
319NdH rem £áétx interPreter cmdz atvaltaza 
51981 : 
miR1R hgz"" 
miAlZ if PTIJAO then P354111£ : PE-FR-12y 30to SI1AzA 
531914 if F-—iéd then P3gz4l16g : PS6-p-1739 aoto 51k32A 
319]1E£ if PTIi5A then P5sz41744 Fésp-1l23 gotm 3187E 
a1i9135 pgazd4d943a3-s197 Fszt pe 179 
21929 for tlzi to PÉ 
ziazAa P3a:-P3r1 if Fesekfp3szl2zz then 519378 
ai94A next t.1l 
nianza PagsPgati if Pzekl(FPF9.CZ128 then h$zhíftchrálPeekíp3 
pap) goto 51959 
algeg h8-hitihrőlPzek€PpP532-1490 
a19383 bE£zb$thi 
a1n3a5 J0ots SABZA 
ALO96 : 
512dR rem kiérák tokent talalt / kiertekel 
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51251 
31203 Print b$tR" ", 
J312A3 mmáéz!ri" 
51297 if tö£Sz"i" then 9gosub 53489 : Jato Zí1z39 
si2za89 if b£é-Zr".varegu" and fesöd then güzub 234598 
51219 íFf leFftECcb$.10z"." then gosub 51399 : goto 51299 
létet if tözz"PpP" then gasub Z4B98 : Jota 51739 
222 if tAszítyr" then Josuúub Z653dA : gota 512790 
51227 if tögz"m" then 370sUub S45AB : gotta 51738 


312 if lenCb$ő7s3 and t9ö8szön" then sosub 32899 

Ze if mm£Ez"." then 531798 

5127a if töSz"1" then fsfrli: Ffs(f)iszngr" Pszeydoutasita 
st varom ". PrintFfgfrfi 


sí2z5A if tö$Sz"n" then las$zb$ : tO$z"1" 
J129a báz"" 

213989 retürri 

J1919 : 

Sl14D9 rem KWKEK Pszeudoroperatort talalt 
miggi : 

514985 Fgs:9 

31419 if b$z".end" then Pes1l 

51429 if bís".egyu" or b$8z".e" then Pssg 
al4209 if b$§z".ztart" then Pzss3 

531449 if b$-". black" or b£z".bl" then Pes4 
j1459 if bíiz".byte" or b$éz",b" then PszZ 
514£9 if bíz".dbyte" or bíz".db" then PzsE 
51478 if bízsz".tezt" or böz".t" then Pss? 
al49g ir béz" Ward" or báz".w" then Pzzs3 
31498 if bízs".varedgu" or bís"ouv" then Pes3 
A1493 1Ff b$őz".omarke" or báz".m" then PRzssíR 
514987 if béőz".cauat" or b$sz".c" then Pssil 


a150d orpsJosubziton, 5za9a. Szi9B. 52299, 52799, SZAR, Sz50 
m. S2zERR. Szrig, szed. 32398 


15319 if PszAü then Print." KE E e ninzs PFszeüudo EME 
al9513 if ESZA then tAFZTP" 
a105zA return 


1521 
ailENA rem KEK . erni 
ai6egl1 : ziosz 9 : 9gozub 58A38AA 
mi6Az Print : Print" EK Programhossz HE 4E HE K 
x". Print 
Jj1607 if Pozg then Print" £XKK ":pzePnt2129-2R4á7 
51£94 if Fozl than Print" BEKA "a PpizePrú 
31605 Print" HKKHRE byte tudo db dööi 
aló jzuzukh 61599 
S1618 Print" gk vege HET 
5]164R Erint" BögE Hika. hd. ds élő 
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21643 
18645 
21658 
31667 
31670 
pe etel 
31621 


e 
316535 
-lézi 
MAr OL 
szadai 
azaki 
azkig 
SzAZA 
szAz1 
az1Aa 


sezig 
prrasáab 
az2z19 
zz2zzxed 
Jezz1 
szegi 
2248 
rretedala 
32381 
2319 
Jz3eD 
29721 
MLHI 

2949 
sz-41 
azán 
22441 
-J2e41A 
az4dad 
mizda1 
32439 
22448 
272441 
927KIK 
az23k1 
mzalgd 


JZIzÓ 
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Érett" EKE SRETURHE ggégkak " 
get. u$:"if werrchrásC130 then 51645 

KOP SESi Et 

pedüt ESZ 

for. az1 ta 1909 : next 

megt 


Erint." KREK a 5EPiÍikodu Program". Print" XKEHE 


Serie sazei 


acsutb Sz3gR 
ori 


rezm gegegékk . €gu 


PpPsgSz 1 gy [Zi 


ret aerri 
vez kesek start 


ESR 


retürvi 
rezi8E Ez dr ajó . hl eck 


Pz§éz"k" 

if la$i"" then bászias : Sozub 54592 
if Ffz"d" then gozubh s4599 

retüryi 

rem o 8ékkh . byte 


Pe. sp" 
if l1a$75"" then bkEzla$ : gozub 34599 


if fézöd" then 3osub 54580 
return 


men EE e a dbate 


Pefz"d" 
iP 1a$C2"" then bérla$ : sosub 54580 


if fes"g" then gozgzuk 5458A 
return 


Közmi KERE Egé text 


Pegz"t" j 
if 1laC0"" then b§-la$ : 9ozub 545AM 


mb 


52521 
5253E 
52548 
32541 
SZEAA 
2641 
sZ618 
szeza 
52621 
SZEZA 
52631 


32641 


mel 


pepita] 
37931 
azaan 
26391 
323198 
22928 
megam 
2931 
pepolalala 
jani 
peel aa be] 
asa1ig 
mi9zA 
makizt 
m29871 
2535 
mig4a 
39737d 
azd3k 
3539E0 
53210 
93228 
plcsrés 
vzzgd 
stctsje[ú] 
53649 


if fzz"d" then 30z2u 
returv 


rem txmikk : Word 


Pzőszöuy 
if la$iz"" then b§-la 


$ 


g0zub 54d:9g9 


if fsződ" then gozuk 545384 


retürmri 


rem o SEdejtkk a VATT 1, 
Pp sző , esz"n" 
retürvi 

rem EEgéé .marke 


tösz"i" : bízla$ : 90 


sub 


a4azam 


if f$á$z"d" then gozub 54599 


retürmi 
rerg gk - COuNt 


tAsz " h? " 
1(gősintrPc/A936I : 1( 
return 
rem $ewewr mmemonis—z 
usse 

teséz 

jazukb 337AH 
tegzleftrit$.931 


rem Print, tef£.b$ 


? 


if bíszte$ then wsyalímidttt$ 6.127 


if bíCctes$ then tsaszcímidf(t$.4,124 


tsszcífmid$it$.3.12./ 
if t-9l1l than wzgAd : 390 
goto 33422 

if uszo then mnázömn" 
if wzi then 9g0£zUb 393 
if uszzZ then gasub 53537 
sosub 36503 : return 


ta 


a39ra 


returri 


[el 
9 


returri 
return 


gotta 


goto 53219 
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3601 : 
93709 rem téx T$ toltése 
O9ZO1 : 


t 


cimre 


53705 em int(t/194-2g goto 539719. 53720.93739. 593749 .,53750 


.53769.53778 

39717 on €-34 gosub 
en 

S3729 on t-39 


812.33819,972914. 
73721 retürvi 
373227 on t-45790zubő 
3822, 53823, 53824 , 539 
elsllls al returri 
ar4B on t4t-53990subög 


49915 


ege) 


AZD a! 


3832, 53923, aza24. 9373 855 

sgr4l return 

s37sR an t-Ee990zUbaz3I36 ) TIBIT s I2999, 199329. 795349, 39941. 23 
3342.53739493. 33844, 53945 

aréna on 4t-73990z0b533346 . 32547. SZ9á3, 99943. 92528. 57941.5 
al gel 3. J3994 ma ts. I ss ha] 

mid PEUT 

arra 9gozub 339996 returri 

si festes NAL 

tett fel a ajka 

agatii Mezlllá a e lrás ebét dl 7 gő so tstóáátásááála SZE3IILE2973(E[L3 
373(Ó$S5S3561I[LIÉLA2ZY1LELÓCS2Z" return 

Jaaa SáznatABESZEL EE Ket STSKE jZoózzat c jdgzsz4ai [[[3 
FALI SSZSZI?LELA2Z31EKELSZ -téturn 

.ggaa tizrasi[I39ALI[E: 196CLELSzZILELLLILEZHBEr[[[231e8.1$18 
Mi aes Öazs 

m39a4 t szal édessége zsdylwui:z" return 

mag kim z"pbeslezbüniBé ző retiüliri 

mzote SzöbEALI HUNT z" "return 

Jegy táíszöbitt-I3zA4TrTEzSzzzil$£94253" return 

nson3 tiz"bkmilflz38ilal;z" :returri 

n,agaa tizöbngk. 23M3111:2z" return 

32919 t$z"bPILLICZIB3181;z" return 

azali töz"Erkt.198([(CCB1" return 

2912 tiz"b.zC/-zzPf1i121.2" "retüryi 

ag9172 tiz"buesL[Izs7Oh1l91:2z": return 

aaal4 áránál gázt e Jezül" return 

27515 tiáz"zldeieiidaszásal" retürri 

416 tézteli131587 a: J91"-PEtVUFN 

tet sod ÉS stelyrtibalr[LCai"éreturm 

23918 tsz zmezeszat ELL izzsdősijszasderzőzzdéir sz addd4dé747 
2Jal LÓ S3z161E6g4241C [UC Sz" return 

93919 ESÜBEA Erg7egtirií112zednyezzzezlEE[23" return 

nm 


DDL 


sül 
00 
He] 


JZA2? s III 


B tísz"icpusr3zAt[LÓ1zZc4áL(LIESZcIlLIL25": 


23391. 23992. 533993., 529904. 


35903: 


retürri 


reti, 


905ub338Aa6 . 53897 , 33883 . 53947533819 .53811,53 


97916.53817,393912.533819. 535328. 99921.9 


I39272. 199329. 92831.5 


-d9al t$-"dezitSzérLLI32dELETTézcetr[CIZ3H4ELTCTESZ"éretur 
n 

szezz tízö"dexd; lczg4z4491" :retülreri 

azza tiz"desC: 1598L(ELCCA1" return 

azged tiz"seori[g49rrIIi1z45: vcza2z5z: ezgez4áat [c42354: ézss 
JAS LELSS4111CL4A2Z51LICCS2z"returmr 

magza tísvini9iseészti32fELlLIECTSZee TELE 23fETTITLZ9" ii retur 
n 

J2zzb tiz"inxfísicsrClniB1" return 

-zezr töz"viny[C1cSs714181":rétuürn 

szezg tás" impPang4dczi : 4za6ck ik agg" retürri 

vzo2za sat ee ebe ő irhéyős 

saga zölda7zagajg[ [[[izaSalvijszbősb3azozadbáad23bar[ [IB 
AROSSDNOTA ITEL ESEL TÉL Ó ÉS KO ten 

azzal t§-"1ldxILLZazBrbzelza8tL[CSZES31C[[r2aeLrC(IC23bebi513 
3": return 

mazdze tEz"ldefRdsaRgi/11234(EÓLLSZEHEZT[SZaz I EL[25E67x1855 
mer retürn 

S3833 t§Ezsz"1zrLCCzdza:1ICI14d4ELLEISZS8L[TIILEZ4E[ELEEZ5zEL[[8 
ag" return 

azoat tiíz"noPpr elza:ln4R1" return 

szama tsz"araltsa9el(r11l293e€e75232lseemziszedelsázzldíi [[[9 
J1g9tLess3a1- 1CC4z11LCICSZYretürei 

szaga t$éz"Phabil4d2:. 257191": retürm 

s3837 tiz"PHPLLIAg9EZETAR1" return 

szgza táz"pl]laz[llósHtzszál ő öretürri 

s2829 tes"PIPhk 1289 15281" return 

3048 t$éz"rolCfisza$IiLL:1ZEl[LEL323rLL(Ee22ELLÜ[C255E/5m18 
ae returmn 

53941 tezőrorjJi3Eaki1[CT:16ELCCESzrelILLeézőéet4áCL237eisasg 
3 rat ür ri 

szgdaz tiz" rtillLi4ALL[ÓIÓA1" return 

539437 tiz"rtaefzl6Aa. 17181" return 

szadd t$§z"zezÜCsestlILize5SEL[[SzZfőns.zezedős; szaf dnb. 43 
388ETCCSZel1C(LI(CTá2Ff1CELCSZ" return 

a3545 t§sz"zeznlIZ8F3$FEBI"retürri 

53846 tiz" zedorifzasnzál" retürvi 

szadv ti-"szilli72Htőttépli" :retürmr 

azsdz tizöztagissstiziszssteszezedtsszzszal [[D5333rL.E[7 
J351CICICTC4291CICCTO5SZ KetúRN 

53849 t§z"ztzxeuSS$91LCSZSEL[E[723ELÜEE2z "return 

szzzA tEésö"ztalEs3áról TC szzdrrelózsztLeld2" return 

szdni t$z"taxtviszgszeB4pi" return 

ajgjuaz töizsö"taglulasazólál" return 

plG tetett tézttaauti9erezial "return 

2994 tiz"tsxz(E1balLlELALl":-retüurvi 

agana tézöt SAE LAN ZPSOL PAT 

szant töszötxszlildarardol" return 
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mgrine HE Ettkbt Fszelda-oberator DFkergiijiig 
agA19 gozuúub szei 
34A17 if Ezfzöt." then biízb$:toihr:i-(a) 
J4goZzóH if Fzőz"z" then Püzsb : Pmzpz ! Pori 
a4gAa3a if Pzfz"e" then Tata 547538 
j4dodgA if FPsszök" then Pzsbztb : fer tsi ta b : zBzsA : 3 
azub éH1RA : next t 
54aazk if Pzáts"k" 3nd E€7258 then cHzb : Sczubh CGRB1ABH : Pa 
xzpatri 
sen if Psgz"b" and bozzzó then sozub 5349A 
Jjdd7a if "zgzödg" then g0zub z7eza : zözez : zozuúuk ERIKA 
zhsbi : Sozub EDiR9n : PiszRctz 

sad if Pzizőu" then Jazub S7oza : mosub 579684 

a4gosKg if PFzgző"t" then fortsztoleníbt.-1 : cAuázalmid$t ba. 
t.125:S0z4úbEéB1i1BA PcsPpct1i1:.next t 

s41Aam if Pzáz"." then tVíévdgazk 
Jj434a tapzzvi" : returmi 

her HAT) aA eh si 13£ . aszuk m45ARa 
543 ed if fázöd" then 90zuk Ss4598Aa : foto 54348 

agzrA 16£1-195-b : goto 54340 
J4SKAA rem $t4$4k ciímket talalt 28 beclvaz 

345n1 

-451b for tzXA tol 
Já3za if 1$f(toadsbá then next, 

sa54dd if tű-ltl then fszögd" : vgzi : return 

nasaa 1$8ílóse$ : 1(lIdspz : v4ászl : lzslt1 : lagzs"" 

J45EB retüurm 


49 7Aa 
AZA fsftl : fsífozznipt" "t4tb$t" tobbszorozen definia 
164" EGINGESEP A : PETUPN 


JAgNRA rem $4EXKK mmemznichoz zimket, keres valtozak cim 
gi 

4991 : 

343053 yzlenCb$) 

54919 if b$z"accu" then oPpAzi : ce/zig : byzi : 9g0sub 5 
7RAGg : return 

J4S2D if leftőfro$.19s"8" then 58909 

54230 if leFftecbE.195z"(" 3nd rightá(b$, 397", xi" then 58 
498 

J4ác4n if left3:(b$.195z"C" and rights(rb$.laz")" then 3329 
Aa 


ages if left3(b$.1loósz"C" and rightgC(b$.305"21,y" then 58 
6538 

-4g36Ad if rightáC(b$.295",x" then 53898 

4570 if rightá(b$.2rz",y" then 55939 

S4897 gúto 59289 

mással : 

józdd rem $ággk oPeranduz b$ - b dec 
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aazni 

aszds if left.3(b$.l.schrgr3döthen bzR : return 

—ozelB if leftEflb8.19.7-"$" then Jgosub57zanyg : return 

sszzű if szzzíleft$tb$. 121247 and asc(ileft$(b$.15.cog th 
en sozsub SszzAg o: return 

asz a H-sáA tzH to l : if 1$€/t5;Z5b£ then rext 

mamozd4dd if tzitl then sosub 6z488 

med 5 IR jú ége 141 then Print chr$(1235:b$." meg nem definia 
14. 

Jazab iftzliltlandícerslorcejdzdorcerza] then eszgg53 : sprs 
azh$ : zízssPpa : szatlíreturn 

Jozgd rem erint" SSzod bezzeg keze" 

Jazad if tzltl then KEZZSEKZSET] : s$ffsorb$ : a(lsizpiz 

fől al ágvl VH eg V 

17 if k7zi then kfzfü : retürri 

bszlíta : return 


4T 
me 


roz €kéxx dez b$ — hi —-—ez Hex 


kanés "midg$éég, 2. lentkh$d-1) 
Jazsukb 2974dt 
bzde : returri 


herlkritke edttor Ela" éke 


új Ú2 új Ú2 (22 MV MJ PJ tú B 
3 (3) DP) e 3 DD mM ReH 


ME ni 


J4OR rem $E$ttk nem lehet ökerandugs — hiba 


EA CAÜN TAG TNeREK tű beg; 
aegnenéeégegengigüg Hi 


vás 
sz4l9A f-f4t1 
Jadza felfoösznárt "het" mint mint ckergnduz nem lehe 


tzegtez,": PrintFfgrrfo 

citsásbo retürri 
mgzl : 

55599 rem exkr4rt cgy bute-oz Parancs 
anal : 

sz51iA mersb£ : oPp-Asli : cejzsb 

naaa gosukb 536N8 

mud3n zozsza : 9czub 6R1Am 
sszda BE piti 


SzSSA taszvi" : mnáéztj" 

JI56B return 

magos ! 

maGUBD rem $kárXrx CO JeEPikcüd beallitaza 
ma6Hi 


JJeEl1lB tizlenít$7-6 
niszaA for t:A to t1l/§-1 
szog if ce-rsascíémidf(-tá, 13tt$35.122-43 then 33693 
Ssz64N next t 
ezetege fzf4§1 s 

J6-A fálfozznit" cnimzes nem megengedett": Printfg(rI 
5580 zaszag : retürri 


185 


teajead et szib KS 3 

kn) ait zaruttálik É Bi e zyalímidgr Kéz pekek Ess , 122 then 53868 
szegA hetzmidgá ta 7rtkn : úozub 537BA 

megy caszde o: retürri 

aoza 

narHA term WKáéxtékx relativ mimzezit Paáararvrz 

SZÁR : 


rT1A megá b: o : cessz o: zesrsziil 
5728 aazsub 35587 
marak cöAuűo o: guzub 6FIKA 
esne pizkzti 
aa tél datölál ll 1 11 mr nen 1 J 1 


S89gE rem $ttxr valtozo zimzezu Parancs 
a6Ha1 
biztak él] m$ tg : töügzöm" . mnéezőjt ! return 


SESAB rem Hkketk  aPeranduz relativ cimzszhez 
tesi sz tron lva ját KÉNÉSSS 
aozli9 íf TeéeFEPTD$S. 1921 


séazk zosuks7zeHg 


2"$" then SE66DB 
553a9 


viaszt Enézráa "PMNETV zata 

seésge cAzh misüuk 63iRA 

38529 FPisPcti 

senen taüagzvi" 

Joard vetürvi 

rar) sr gas li za MÜ, 

aséna if aszíleftilbt.lsí5747 and azcéleftFCb$.1..cog th 
en sozuk azán ünato s657i 

.een1 

ao9ie tat ESR to hb ir VEltáakzot then next 

ze6zk if ésslA, then SEcesálk níénoözbzi : nsnt1i : bsz5sz 


apietl(ki : gata 565939 


rem gXtx o zo-t.o kervozz £ Fokezrol 


9rOlg if f$z"j" then tasgz"i" : return 

nerazb ag0zuk SZER 

arAaza zosza : gauzub SHIiOgB : Pcsprtl 

mavH49n if busl thzn tA$z"i" : retürri 

ae n if buzz then zösbi : sozub EBÍKA : Pcspactl : tisz 

MAN ugar SETS 

a7bEH cHsbi : gosub Etilia : zözbz : Jczub SBI1RA : PczPpet2 
. tapz"i" . retürn 

mrHdR1 

arajzgA rem ktáéxrk  cFPeranduz teszt es birbz csztasz 
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57591 
s7zEDd if bcA then 57659 
57619 if bC256 then byzz : bizb : bőzA : return 


J-rEza if b26S5S3t then 57652 

576238 byz3 : tZdzszint(b-25E)2 : bizb-bzXi256 : retürri 
-7eénA fzfit1 : fgirizsznát" "tetrlbot" nem ervenyegz. " : 
printFótFPI : Fszőj" : returm 

Jr633 

H77ARA vem $XXREK hezaszzam ? 

977R1 


s7agg for tsz to lenfbé. : tesszscímid£f(b8.t 177 

5781R if te247 and ted58 or tesre64 and tef71 then next 
g0zub 535390 : return 

578328 fzsftl : FElFIZzznét" 0"4bőr" nem hexaszató o": Prin 
tfFEC(FI : fgzyj" 

9ro4A b:XYg : returm 

mvaB3 : 

37339 rem $EKEK decimalis szam ? 

97728 for ts1 to lencb$g2-1 : tesgsgcrmid$(b$.t.1797. 

979318 if te-47 and teC58 then next : bzval(b$) : return 


a7939a fzrfti : fáélrfizzngt" "4tb$4t" nem decimaligs szam." 
Printfelfd : Fsz"j" 

97348 bzg : return 

a?9g79 : 

37980 vem KAWEK áz OoPerandus ölvalasztása a mnmémoniGrt 

ol 

97381 

ORR bísmnid$(o$f.zdiy-rii : ce/zi : 9gosub 539498 : oPAmby 
gat 57OAd9g 

z9zgA b$zmid$-fb$£.2.4-21 : 90zub 59498 : opász : ce/si2 

: goto 37AD9 

533409 b§smid$(b$.2.yr-4d) : cezz4 : gozub 59499 : oPAzby 
gato 37990 

Jesgg b:z-mid$/b$.2.y-d4di : ceszzjz : gosub 339499 : opisby 
goto 37ABB 

-oong bízmid$(b$.1,ur2zi : dosub 39489 : oP/sby : cerzt 

ageln if byzZ3 then zerg 

zszzű gota S7AR0N 

S2398AE b$zmid$(/(b$.1.4-22 : ceszz : gosub 539488 : op-sby 

29918 if bus3 then ce/zg 

s3B2RA Jato 57498 

-nazan bizmid$£lb$f.1l.,42 :ce/szg : gosub 39499 : cPAsby 

39219 if buzZ then ces-zz 

szzzk soto 37890 

Mdeagi ő 

nazak rem Exisk bg —-—--s b 

39981 : 
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579499 sazut sözod : gotta 537608 

ez kotsz jét 8 

aa7oR rem Hdéexk hex szemg o de 

sets rt ah RáE 

aa71i9 dezB 

ng7zn for tzslenfhefi ta 1 stePp -1 

agrond hifsmid$éhegs t.i. 

ngr4n far tisi to 16 

agraR if mid§f("Al294ZEragabedef" , t1.19€2hz$ then next t 


I597E£3 dezdetít1-19ki5TClenche$9-t ) 
te deti 


977A next. to: returm 
varod : 
EOHAOR rem $$XXtx csatorna megnyitaz - adatok 


SRH1A PrintH$iz."z:"tnagt"öka" 

eHKHZA inPutkis sen embt. et es : rem Print " xx". lertáClem 
£.192. "44" 

EMOGA epen 9.8.9. "Aa: "rtnagtökork" Po" : gosub ApARR : iz 
f enzző then ztopP 

éEnaga Print.H2.chrslDrchra CR 

BOH4A retürri 

EH1RA rem $ékásg kiiraz a lemezre 

EH11B zo/szasti 

EH129 if zosízná then bigzbiztamnr$rcBi : retürn 
ER12B Print$52. big; 

én1553 rem 7"bi$5s";bl£ 

enl490 bifzachr$-cn : corisi 

SRA158A rvetürri 

ESNISL 

cgzaA rem Kfxrát az utolzo blokk atadasa 

$A2A53 tem 7"pi$z".bi$.lenfbig? 

BOZYA : 

ÉRZ1A Print$2.ol£; : return 

FAZ11 : 

S19A9A rem $E$4AK Passz 11 

619081 : 

513 if stőré4d then 5AeKRA 

61919 30zub 53288 

El92A close 3 : gosub Z3O930NB : if en€TI9g then 482990 
E19Z1 : 


e1lRz2 rem oPen 93.3.3. nat kobor" 

1024 rera gett2.b$ : if zt-A then class 93 : got 6 
1878 

ElLlEZS rem if bíz"" then PrintRa;: toto 61024 

FIRZZ rem brint aszscíb$f2;: 7Jato 61824 

S1EZA rem Print azcíb$? : clozge 3 : goto 59998 : if 


eni-A then stok 
146 Printkiő "zi" tnagrs ezel" 
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c1R5A inpPuttiz en emfset.ez ! rem Érint " ág" :lerft£fem 
9 lék 309. "ext 


FIHEA öPken 3.2.9. "B: "tnagtrr-cetlőt" P.u" o: J3osuúuk JARZAB 
if enírkh then 49Aa98 
S1RE82 eősPz : basPi : töszintépa-256I : tözbPm-t2keső 


1963 if Pozl thin PrintH2.chrá ft chrif te) z 
B1BE4d if PposzA then PrintH2.chr$r1 Dchró(g 1; 
sligez 3czub EZ1RA 

S1MEE veri Frint"ztz"iízt 

s1B£É7 


5 eg: "enagtt kat bay 


-int"zte"iszt 
199 : nni ségAdBA : tíazá : tizA 
szhoHA and nftzlseézünKa then S16Am 
ejKHbR then tásnít32 : tafsnfftz tarta 
acta 61158 b 
méűt2, then tázsítziti : tögszgítzaő : tiz 
E a HOLA OLLIO 
61145 tam műtal töjgznáít3. töazt3ati tégzőpr" 


61159 far t-H to 1 

él1l6EH if LE£(tadrtőf then next. 

cF117B if tslt1 then fszrfrt1.FEcrfizb3t" nem definialt.": 59 
ata £l1AB 

S1199 if teészír" then E150a8 

1199 bslít: : öcsub 57638 

siíizAa setto ag : if gáz" then 385zhnrára) 

si2zA5 if Pzcdrt4 then PrintH$H2.9$:: PcsPpactli : Jota E12BA 
"121A setHtő.h£ : if h§z"" then hízchrb (d 

elező ifascfésgizaájgandazcéhgiszsathenbrintkta , chr$(blazh 
r$-b2zs;  Pizpitzigata B11pB 

€1229 ifazzís$oszszandbizzetbenkrintHa. chráfbi : há: PzspP 
zt2:gato £1109 

Eizgga fsfrl.fgffosztrbl pot" 0zimke nem megengedett, s. 
med ném definialt" 

elzsk suta E€11909 

ESL5AHA bel étoenétar1la-1 

é1518b if FcZTZt4 then 9getHta .a£: if agzz"" then asschrárai 


eg 


1 


) 


61515 if PcT-t4 then PrintHt3.S£;: FoszpctI : Jota S1571B 
El1l329 if brizr then fsrfti:félfözöNem lehetzejez "tetrgt 
kest" relativ UO0Kag." 

15493 PrintH3.chráfb.s;.Pxi-Pcr1i : getHa ai : 9nto £1188 
E16AR getkE 98 : if 9857" then 9gízahr3r9g) 

Z1Eg1 if st:-R then Print.H2.S9Z; :9goto 561690 

c1693 Print$3., 92. 

S1685 ErintH5,chr£(BDicnr§(gichrá fd; 
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$(32) 
tal b 


ézlét FrintHAa. 
hepe zza zhr § 75 


zlase maz : if entfrB then 489a9a 
zloze z a3ang : if enzrB then 458982 
Frintt15." "z."4$nagt 

inkutHti5S. em. emf. et. 

zlozsz 175 


ez : rera Print, ermf£ 


KeEETY okFen 3.5. 8a.napt-zel.P.r" 

rem gJetto bi : if zt-rA then EzZARDB 

ren s báz"" then PrintA:;:. 3nto 61E€6FB 

rem rint aszszéib£s:;: Jota E166g 

Feri 5. bíz" " then FrintAa;: zloze 8 : return 
rer Frint, azzib$o:;: clilmsr 5 


returmri 

vezrű ésa bazic fej 

if Pcozl then retürn : rem a MA zata 
printHta. see KET GhEE SE ZehsEK 1.zhr$fascheá 15 Ps ia ig. 


zh ése chr£64a 

éezliza PrintH$53.chrá 3 SDJChráCS7ICMNECZZI Ch (ZZI CT KEFOZB les 
hr 22 chr8f32 

Sz1386A PrintHk2a.chrgr s5szhr pr 79 EMELTE c hr ELS zhrenem ez 
MEZ EGZ I CHOG EZ 

Eszi1dgEA PrintH3a, chrgc sar zhr§ rt 22) ches reg ehe AFB JEHKELFBN 
heg íy9dsche ge 32 o 

eziSk PrintHa. chrr szi zhr ár szdehra szdsz hr persz ozhr br BZ) 
KEZES ZICHEGEZSZ S 4 


znregkse a zhr ses ehr gl szd ehe ge sz chr E e32 e 


oszirA Print, cher 32d che gr 320 cher BEDE CHE Er ZZŐ Che (BZ 
hrg (32 ehrg 32? 


sz18n PrintHt2. chrg Sza zhr 921 chris esz ehr e Zene A SZE 


hr ego chr pe 52 


EZ2Z19B Erirtitta. 
ék peso cheg tsz 


zegcssgszhegtegszhes ész izhre ésch Et vaz 


zz9dA PrintH2.chr3C3zdchr 022 chr (32 ehez e SZD zh EATER NT 
et Stasi 324, 
szZzz1A PriatH2. chrg e sz chreg zzz chrá rám chri (szi zhregr5E a 
hr szd chr § e A 


EI FAJ ELJ DJ E E 


5) (1) (2 (4 (3) 460) £) PI PJ 


- Nm eg pp ig 3 VAJ 


en 
P.J 
(4) 


ege kototte aáz kotrás 


"ng 


a 


Print $2. chef zhr EVA): 

retütri 

rem $itkEKkK VEGE 

natz" ötnat  nagszmidtfína$s.2.lenína$n—1i) 

Eririt "dee A Program befejezoadatt ! gkkx 
Print "kik A zelFRrogramut. KExK" 
Print 4 a következü modani Esés, dö 
Erint"kdék talthet iuk be kk" 
Frint"":Print"1locad"tihrfp(34itnagtt-zelőbzhrg e zá4i tb 


Sz4b0 rem tgk zimket keres ez a hb-rbe ez az 1b-be rak 


da. 
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62418 
ézded 
éz4ága 
52449 
52450 
Sz46A 


if left$fb$,5395"hb-" then 
if left3C(b£. 305716" theri 
Ket ür 
kiszmidg$éb$. 4. lenfb$1-zi 
if 18(to-rkr2Z then EZ458 
next tt 

retutri 

k7z1 

if left$fb$.sozöhbe" then 


bsl(t2-intíflrt2-/258)W4255 


tor tan to 1 


bsintílft2-/256. 


return 


retür 
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6.3 A DISASSEMBLER 


A DISASSEMBLER-re akkor van szükségünk, ha gépi kódú programot akarunk 
elemezni. 


Az ASSEMBLER-rel gépi kódú programokat írhatunk, amelyeket önállóan vagy 
egy MINIATUR, ill. egy BASIC program részeként futtathatunk. A DISASSEMB- 
LER-nek az a feladata, hogy a gépi kódú programot mnemonikus írásmódra 
visszafordítsa. A DISASSEMBLER BASIC program, ezért a tárban tetszőleges 
helvre tehető. Ha egy gépi kódú programot pl. a tár 2047-es rekeszétől a 
10000-esig terjedő helyeire töltöttünk be, akkor a DISASSEMBLER-t a 10002-es 
helytől kezdődően tárolhatjuk. Gépeljük be közvetlen üzemmódban az alábbi 
sorokat: 


POKE 44, INT (10002/256) 
POKE 43, 10002-256xPEEK(44) 
POKE 10001-1,0 


Ezután a DISASSEMBLER--i a következő utasítással hívhatjuk be: 

LOAD , DISASSEMBLER" 8 
Ha a gépi kódú programot a 2047-es és a 12000-es tárhelyeken kívül helyeztük 
el, akkor az utolsó sort közvetlenül ís beadhatjuk. A DISASSEMBLER használa- 


ta után ne felejtsük el a számítógépet eredeti állapotába visszaállítani. Ez a 


POKE 43,1 
POKE 448 


utasításokkal lehetséges. 


Ha meg akarjuk tudni, hogy a számítógépben lévő program melyik tárhelyig 
tart, akkor ezt a következő utasítással érhetjük el: 


PRINT PEEK(45) t- PEEK(46)x256 
Töltsük be a DISASSEMBLERtt és indítsuk el a RUN paranccsal! Ekkor megjele- 


nik a DISASSEMBLER parancsait tartalmazó menü. Nézzük egyenként a paran- 
csokat! 
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M : MENUE 


Az M betű megnyomásával az adott parancs befejezése után ismét megjelenik 
a menü. Így bármikor tájékozódhatunk az alkalmazható parancsokról. 


F : FREIER PLATZ 


Ez a parancs a tárban lévő szabad helyekről tájékoztat. Megadja azoknak a 
helyeknek a számát, amelyeknek címe nagyobb a DISASSEMBLER végének 
címénél. 

Z:DE Z NACH HEX 


Ezzel a paranccsal tízes számrendszerbeli számot tizenhatos számrendszer- 
belire alakíthatunk. 


X: HEX NACHDEZ 

Ez pedig tizenhatos számrendszerbeli számot alakít tízes számrendszerbeli 
számmá. 

A : ADRESSEN SETZEN 


Ezzel közölhetjük a DISASSEMBLER-rel, hogy melyik tártartományban kívá- 
nunk dolgozni. 


H : ZEIGER WEITER 
A program indításakor a mutató (pointer) azt a tárhelyet jelzi, amelyiket az 


előző paranccsal kezdetként kijelöltünk. A H billentyű lenyomásával a mutató 
eggyel feljebb megy, és kiírja a képernyőre a megfelelő tárrekesz tartalmát. 


N : ZEIGER ZURUECK 
Ez a parancs a mutatót eggyel visszaállítja és kiírja a tárrekesz tartalmát. 


P:POKE 


193 


A P billentyű lenyomásával megváltoztathatjuk annak a rekesznek a tartalmát, 
amelyiket a mutató jelez. Az új érték beírása után nyomjuk le a RETURN 
billentyűt, ezzel a rekesz tartalma megváltozik, és a mutató eggyel feljebb 
kerül. 


E : BYTE EINSETZEN 


A parancs hatására a beszúrandó byte-okra vonatkozó kérdés jelenik meg. 
A megfelelő szám beírása után nyomjuk le a RETURN billentyűt. A kijelölt 
tártartományon belül a pillanatnyi mutatóállástól kezdődően a rekeszek tartal- 
ma a beszúrandó byte-ok számával eltolódik. A szabaddá váló tárhelyek 234 
decimális értékkel töltődnek fel. Ez a mikroprocesszor NOP (NO OPERATION) 
parancsának felel meg. 


L : BYTE LOESCHEN 


Meg kell adnunk a törlendő byte-ok számát, erre a mutató állásától kezdődően 
a megadott számú byte törlődik. A kiválasztott tártartomány maradék része 
ennek megfelelően lejjebb tolódik. 


Y : SYS(XXXXX) 
Az Y billentyű lenyomásával a megadott tárhelyen kezdődő gépi kódú program 
elindul. 
D:DISS $ DRUCK 
A D billentyű lenyomásával egy olyan programot nyomtathatunk ki, amelyet a 
DISASSEMBLER tizenhatos vagy tízes számrendszerbe lefordított. Ehhez előbb 
jeleznünk kell, hogy a kezdő- és a végcímet tizenhatos vagy tízes számrend- 
szerben fogjuk-e megadni. Ha egy J-től eltérő billentyűt nyomunk le, akkor tízes 
számrendszerben kell a címet megadni. A műveletet a RETURN billentyű 
lenyomásával fejezzük be. 


F5 : DISS § PRINT DEZ 


Ennek a parancsnak a hatására a program tízes számrendszerbeli formában 
jelenik meg a képernyőn. 
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F7 : DISS §. PRINT HEX 


Kasonló az FH5-ös parancshoz, de itt tizenhatos számrendszerbeli formában 
jelenik meg a program. 


S: SAVE DISK 


A parancs a tár telszőleges területeinek a tartalmát lemezre viszi. 


Oo : OLD DISK 


Ezzel a paranccsal a lemezen lévő információkat tölthetjük a számítógép 


tárjába. 


Az Olvasó türelmesen próbáija ki a DISASSEMBLER parancsait! 


P.6 


a disazzembiler liztaja. 


3997 remkdokeek kek memoria terulet 


92936 
17dAS2 
pelala ket 


:HAZE 
zARLY 
33823 
29aA4a 
38845 
lala tali 
sang. 
29956 
28AZT 
3A8EG 
sHREI 


zanoz 


aSk 


vokc S35A,12R : ens431591 : anz49a96R : alsrg 


remeket TET 
erint" s : bute beiras" 
Print" 1." byte törles" 
Print" ho: mutato tovabb" 
Print" nm: mutato vissza" 


PEdNG at dez szk héx" 
Épint" u 5 hex szs der" 
beint" og TO BUG K han at 
Print" a " cim allitas" 
Ffrint" zo: zaye diszk" 

érint" a saved ea ek" 

Print" f : szabad hely b 
print" P : Poke" 

pFrint"om o: menu! 


Print" d : diz £ nyomtat" 
Era Nt FH His 4 EViNE dEET 


, Print" fr: dís £ Print hez 


get ufo : if ugz"" then ZORRR 


if wösz"h" then laslati : Print la:Pegkéla. 


lasan 


398059 if u$-"n" then lazla-1 : Print la.:.Peekclal : goto 
e a 


if ugzz"e" then 30zukbk 318am : Soto Z7AB4B 
if mumEz"z" then Ssazsub ZzZzA9D 

if usz"x" then 3amzuk : 
i ues"1" then 90zub 37 


otlet] 


(5) 4 4) ÚJ 


77) 7) 3) IDD 13) 17) la 


308 2AE49 
if u$sszhrgl132. them 
if uEszhrili3585 then 
if mázőr" then Print. 
Hn1zz if wuszöza" then S0zub 4HRAB 

Z3ALZZ if ugsz"őöz" then sozub 41989 

aniíza if uwfzva" then inPut"kezdozim : "am 

Z3RAL1ZE if uéz"őp" then Print la;: inPut Po : PFokg la.Fea 


A A ht ha a mi 
va TD) 73) a HR) e) 
- 
ka 


td EJ E 


CA tr ÚJ 


39177 if üu$szöy" then Print" sszévsany vas, :; gyz o far 
Print." vege" 

31229 if uáző"ra" then 38849 

3A159 if mn§ás"dg" ther 44ARAR 

39148 if wázsz"va" then input"vegazim :";en : lazan 

gjat4i : 

391529 juto 2KNRZB 

agiai : 

2A927 rem $étxrkitid büte beir3z 

adgaga : 

31698 irbut"Hany buaterot akar beirni" :.by 

Z31A1B for tszen to latbu szteP-l: PFake t.Peekíét-bal: next 


31828 for tzla tm latburl:. Pake t.2524: neszt 
319859 retürvi 

31952 : 

319597 rem tégtáésrEKK byts torle 
SIJAA ! 

22079 ivPut "Hany but.6-Oot akar törölni" :;by 

32A10 fot tsla to latba : Pake t.Peekíttbul: next 
i2AZA retürri 

JeHzi ! 

szek rem EkEE$EEK dem esz Mem 
jezüz : 

szalH inPut o "melyik decimalisz sza 
szzah sozük gonna 

zzedíi Frint"a hexa szam o: "heg 
szedd return 

Jja2z41 : 

3240 rem EXkEEkEKEK homi ——D o derz 
sz40m : 

32418 inkut "melyik hexa szamat" ;heg 
zzdzü sozub zzébb 


zz4a3d Print": decimaliz szam : "ge 


lá 


196 


4) £Ji 


nmini 


E 


k2 ELÉG ELÉR LT KERT ) 
ED ts PR FOJTJTJ EPIT NM 
az 


AMA R AN 
Dogm in bij) Be e 


ny 


49882 
4RRA7 
19818 
39027 
4pazz 
40R7E 
4994 a 
453 

elulabala 
zAn 

4aRpanen 
49A7A 


42288 
42291 
42219 
427228 
42239 


mim mmm 3) 7 f.) 1 


retürmi 
rem EV€ét4k hex o mes dec könverziu 


Jer 

for tzlenmlhef? tu 1 ztéF-1 
higsmidfíheg tt. 17 
Par tis1l tű 16 

if Mig ATSSTáer szabedef ", ei. 15 2iat then mert ti 


rem ertik tarclaz lenszeri 


Frintsinput" az adat nevev.wun$ 
alz-A : zzrü 
Print" tarolas" 


irtut" mettal".:al 

idFfut" megdgig" az 

azzz : rezg : ruzl :"ö0zuk dzzob : zúmz SS4dEt 

gazúub 4z7RR 

zczlemnkütéi : resi7zg : ryszz : gozukb 4ázzgaa : syz 65 
azzzal : reskeekézüző reazpeekéznd? amzzukn 42 
zaz Em4ae 


rem eték toltesz 3 lemezreal 


input" ax ada 
alsa : azzt 
PLANE" te 
indut" me 
azza :! resg 
gozub 4ZIHE 
zzcszlenémuts : resilrn : rnyzg : gosuúub 422zbA : zyz 6 


ate, lt, 99. 4 
nesz" sat 


uk azzen : zuaz £54EE 


ün 


do: rezzmli : ryszz5z2z : gozub J22ZAR : zuz 65495 
jozukb 4z9RAp 
retüreri 


rem ESSEK zuúz 
Poke 739.az 
Pcke 751.rx 
Poöke 782.ra 
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42288 
42281 
42598 
42580 
477390 
42EAB 
42618 
42649 
42641 
4275A 
42T7A 
42738 
4z79A 
42ZAB 
42818 
4282E 


32528 
42548 

z241 
423Aa0 


44BAZ 
44A1A 
44920 
446 
44035 
44B40 
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return 
rem FYENKKE GEN -register ollitasa 
rem xx 291 :1.b. toltes-tarolas kezdőozime 
rem ky 252 :"hob. toltez/-taroiazsz kezdozíiíme 
rem XX 2537 :1l.b. toltes/tarolazs vegcitn $ 1 
rem ex 254 "h.b. toltgs/tarolaz vegcim t 1 
rem ky 687-7BOD :snev 
if als zB and a2-B then aiz ás AZT 
Fake 231.alvintfai1-256oW2 
Poke 252, inta a 172569 
Foka 253. aztirintífaz2t1172361256 
Poke vzálbiét is ereget b H. 
far tégy ta EgEétlenfui? 
PFoke t.azcrmidg$üs§ t-EBB, 19. 
next 
return 
rem eéktrrk hibacsatorna olvazaáza 
HÉÉ e Eren ETL sz EN ese 
inpüutHtis.ef.emf. et. Ez 
if efrő then cioszge 15! retuüurm 
Print"4$X Hiba a lemezen! ig" 
PFrintö$tk hiba szama : "ef 
Erüiet" 64 hibauzenet ".emzx 
Pfrint"44 hibaz 234 ".et. 
Frint"§44 hibaz szektom : ":es 
zloze 15: teturmn 
rem tierterk o Jiz o £ o nyortatazs 
Priiat." lista kinyimtataza 
Fenn 4.d 
imbut "hexa ÉT A 
if efglsti" then 44Aa58a 
irFut" mettel":.het. 5Josub 32608. alzde 
input" meddid":.heg:. gosub SZz6EKR azzde! zot—a 44DE5 
irput" mettol";al 
idPut" meddia": az 
: Print." megszzakitaz ZKETIURM-EenEL" 
if 3l-az then clozs4 zata 30927 
get eff:: if efiszzhr$(129 then closgz 4: goto 39R27 


44999 9azub 4E5AK 

4J41pa PrintH4.Pr3 

44119 alsaltosz 

434128 goto 44A53A 

434299 : 

44739 rem $E$4$E$4 disz £ Print hexzdez 

agzaz : 

44329 a9zla : 317339 

34239 9asub 48502 

44325 if wuszchr$ft1352 then Pr$zmid$C(Pr$.59.lenfPr$D—-35) 

goto 443538 

44349 Frfzleft.$(br3. 5532 

3475A Print Pr£ 

443E0 Jet ef$f: if efáőzchr3(139 then lazali : returm 
44379 alzaltogs : goto 44338 

44371 : 
3290A rem Ettk dez —-r hex könverzio dejegyai, 

49A1 : 
aznag elzz 

4apas hegze" 

413918 for dsel te B zteP-i 
438E2A hisl6óTd: hözintédes "hi: :heszheftraj pt "alzz4zérsgaba 
Jeff". hét1, 15: dezde-hz$hi 
gsazg next 

JARAT retüren 

JZAZBH : 

pózát rem tikk o dem o evz hex körnvergzit gdededui 


ma elzl: sozub 45kA3 : Et üFy 


dot 


rem gt zező o / hiba 


A Erásbrba " $kkkk 
4512zA higshipt" KekkkkT 
32138 alsaltil 

J3Z14Ó retürni 

2 Sony ls. jen ös: 


43zARA rem kékek ezi / 1 kutég 
kente : 
eztán Eretzéregt" ki 


higshi$t" ú 
retiülreri 


235 teara tkki nesz vs z byte 
a Jezpeekéalti, : sozub 45HE£ 


Frezérzét" "5" 4hegr" ii 
dezpeektaitin : higszhigt" "árightáatr" "trztráfkden. 
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gyk" 

45348 
45399 
45408 
45482 
45418 
45428 


gsaga b 


aga a 
45450 
41524E8 
42499 
dsrbüln lg 
g53adz 
aaa1R 
45928 
Hiclésa 
6lAn 
vázát 
da 
rzA 
45739 
45748 
am as 
372799 
gaaaae 
gas1in 
455370 
a3g:a 
423349 
423689 
4E939 
45109 
461m7 
46118 
46172Hi 
45138 
46149 
46199 
46380 
36382 
465318 
J32zA 
463729 
46348 
46433 
363 
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retüri 
mem ogéked ik azza 7 3 eute 


far 4 lez T JER eg 2 

sekfaltt. : azzuk 4agigen 
Fsprprt "ahss 
dJezpbeeklailtta : hifzhiár" 0 "épightálr" 05 "tgtri 


next 
retürri 


rém o gdegkk zjy butcz úuftazitaz 


Er3$zprgt" k. 
jésásézdítűl 


PE mo gk közvetlen 


á6zub 32199 

Ér$szPr$4" Höthegt" s 
hitzhigr" H"tdept" 4 
return 


rem eexk abzolut 


90£u0b 474ÓK : Sczub 45326A 

Prázpr$r" s 

higzhigt" 8 

retülrri 

Prgzprpxt" "4theg : hiszhiát"  "tdef : returm 


Kern KEMEHÉKK B. 1laF 


gosub 48309 : gosub 459EB 
PEF-PEEA" i 

hiftshigt" il; 

return 


rem wki C ind, x2 


jczuk 42388 

dat szd alat zt ltt a a-t átt 
hi$g-higr" rö" idegtt" mi" 
return 


ARA rem Ekxkkk findő,4 


ide. 


gE5az 
465310 
gE5zK 
gzesza 
46548 
Jana 
4érHga 
dérEiz 
3671A 
41657 
4E75H 
JE74A 
JgErag 
JEZJAL 
JERHTZ 
416310 
JELE 
4Eg7a 
46348 
416793 
471ad 
3711 
47118 
471zn 
4713k 
47148 
471579 
47 3k 
47saz 
37218 
g75z8 
g75zA 
47242 
47733 
4.7 aka 
37541 
a7alg 
gzazi 
g7aza 
47693 
rrBpA 
g77AZ 
437719 
3777zBH 
gy738 
47740 
g77akR 
477Ek 


aaziik 4sZ3ZAn 
Prpzbregrt" ( 
hi$szhigpt" ( 
retültri 

rem kk 


úg 9 a) Gad A 1a 


Prászprpt "ax 


hifzhigt" 
ret töri 


Kezi égetése 


jzczuk 153ZAA 
Prásprgt 
higzhigr" 
retürmri 


kozt dé 


aagukt 4azdAR 
Práizprát" 
hi$-higt" 
retülreri 


rezm Lődadhdú 


ac ozub 4agdon 
FrEzEret 
higszhigt" 
dás ulti 


caztn KEKKK 
krfzprgpa 
higzhigt" 
retürri 

rem etxkk 


if Psekfalt 


asd 
sag 


"ehet" y.g" 
vargjopr tása" 


A. laP sg 


A. laP ,y 


aozub 


abszölut 


4579E0 


tt 


gazub 45968 


" 
sal 
he 3 


abszolut 

: gazub 45 
LE vAJ 

akkis 
SEM." 
JGCt "? 


relativ 


125127 theri 


spszaltatpbeekfalti, 


got.a 4738BA 


z:Pzal-2544p 


eekf3a1t1?) 


sa 


369 


g7rsa 
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Jjnsezzp : Jozub azona 

Pregzprgt "printer E" Hhef.gzzk 43 
hifzhigt" 0 "rpight.pf" "zetrgispi, gar 7. 
retittri 


rem $kkkix indirekt 


j30zub 434Aw 

PrEzPrgat e öbhegát 
hi$gzhigt" ("rde$t"z " 
return 


e. ls, e És Re És ÉR, ÉR ÉR A e ) 


19 Wan ab ma 0] 0] 07 10 
DDD DD P.D DVD DD DVD 


P.4APBAARARA B AA Fe 
0 hi) Fiem MID ÜJ TIE 


-4 


421880 vam $44€4 hikha 


45118 Pr$fzleftilpr$.1621r" a 

45128 higzleft$í(hi$.zzazkt 0" 

if zpR-ZS2 or cPko9g then hiszhigt"mninzsz aszziiz-karak 
retüurri 

higszhigt"35ciirkarakter : "tchrRfub 

reTüreri 


rem $§ 1 Jezvhex bute feldolgozaza 


agazde 


"-sztráld92.54 


gazed retürii 
gJazaa : 
ago rem $4 2 dez-/hex bute feldolgozasa 
1242 : ; 

38418 JezFkeekűdalriotPeek la it29keöb : dgszde 
azza azzuk danom 

aggok hegs"s Es theg 

45443 defzzriuahtai" "tztrElda 54 

azaz rztiürri 


48798 rem $k disaszembler ziklus 


48519 dezal 
48520 g0zub 45ADA 
es : hifz" — "áztrfCal) 


2 Saderhezi a Jaz an "49BdA 

Jja5Ea des 

gk haki g26ER 

AASSA PrásPrát! "áhes 

4929A hijshisgtr" "tright.ár" "áztreglak d. 7 
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AZSAA on cetl Jozub 45198.45ZAB, 45390. 45405 

43618 PrázPegr!  "ámz$ 

48819 hig-his4"  "ameg 

AZEZB if zero? then 48EZT 

4ZEZZ an cetli gosub 4EZAN,457BB. 45980, 46188, 4E3BA. 4658 
E, 4E7AG , 462AB 

49825 3ota 48£38 


32827 un zer gozsukb 47108. 477HR.47SRA. 477BA. 479AA , 43198 

1563 Pr$zEr$r" "3hig 

43640 retüurn 

45641 : 

49909 rem $4kkk a mef. os. ce/ valtazokat kerezi 

339091 

49910 teszőök" : zsez4d 

4992R tszzzeítegr) 

ASAZA 7 b SzTH 
gaign hefzmidgiitk  vtzekü zi : gozuúi 32Ed3 

gaasd if cpsde then 453580 

390ER if cp(dethaentefzmidgí(ítá£.94tzzke 10 sszvalífmid$rt.4 
19tzeHg.1211-1:Jotosg3azan 

42H7A tetfzmid$(tFf.lltze$3.12: seszvalímid$(ít$.i2tsekB. 1. 
Jel: guto4gazaa 

352zAH if zez—1i then megzöx" : cesk : cersi3 : retü, 
3719 suta 49HIR 

táztake metsleftirt$. 

3518 mm Meáetésséb ldtszik 
ESZE TEA AZt nLgEL KÜ térubk 
42228 retürn 
JZzrHAD rem ktg tá tolt 
ago on int(t-/194-2 


813, 53814 52815 


te -gIggosukzglé. 525917.5399818.0327913.55992b.02921,2 


zas24, ett 19825 


2929, -áaza, ggdad, D2aal. 3 
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J7d 


247 
am 


— 


return 
7 Else un. ga9dt :" FTEtÜFN 


a ásd éjt KA Det] 


2981 te-"adc[ CZE9CLLÓ1sE5t7Kközzröotek 392Ea[[[I227AECLLE 


7ALCHSSZELLEL[4271ELLESZ" return 

száz tis" aadgtiisz ai [[D1225EC[ izszssás igőzz2aJ4tet CL 42554 ICC[e 
at JILLLISZ" return 

320 "as1L[[3 "Hal: 19ELELTSZI1ELLLIEzZHEL[[[251e.1$15 
állt att 53 

jeRt4t tás" bir$ 29993 1wli:.z" return 

szea tes"bizl-2zbBulBEé:.z return 

mandé tiz"begl[2faglibisz"iretürri 

aa9d7 tai-"bitá-Iz4ái7szgzzeidi§423" return 

nadas táz"bmillzzRilol: e" :retuüurri 

sag ti-"bnek, ertöBl11 52": retürri 

59918 t§-"bELCC[(218919152" return 


szall t$-"brkt. IBALLILE1" return 

az4dl2 t§$z"bevrl-z50f121.2" retürm 

magia t€z"bvzL(LETAM1A1; 2 returri 

9814 t$z"clxozilgezetüli" -retuürm 

with bei Kt ere ee etését AL" retürri 

asale tés"clilzsise:3:5sgisiretürri 

janlr téz"elvILIb8 ETL" return 

33915 t§áz"cmpi2SZz3grLEL12Isd7siszdsgarzezcedézrszzdddér43 

ZA9ELLISS-I181EZs2JILLELS2 return 

a39139 t$-"cpRxILSselt1Cil1zzdernzszect[LTE2":retürvi 

53828 tös"zpsS7szHLILT12z4ICeICOSZzzzetLLEZ3" return 

ma8z1 bps ss ztISczeELILISZHELLELEZzZEe [EL [22de[ELLS9" ő retürr 
azona tEs"dexd. lcadgz44áB1" return 

a3927 tése t: IS8LLELOL "  -petúrn 

jJz3ed t§$z"eor(LS49ICCICIC1245:rc232559 : 2csozgalLe4dza5d: 6zsa 
JZA9C(ILISZ4111CC4A2Z51CÓCCS2z "return 


5382: táiz"incalgzesztlszféreLIrEezeetl[E[2EFferL[I82" return 
azazb tísz"inxsIsis2zl[nlAl" íreturri 

a 3827 t$áz"inmyIL1c8714191"-returm 

aza289 t$z" impámgderet : 4d296Ik1k472" return 

szoza tis" izril3zAL[CLILI23" :returm 

SZAJA téz"Ida?asgagrLICiZgasalvigzbsbzagózadbáad4d28bAr CL[8 
SsbZEZoSSZZalilLEL4ZDILLEÓIOSZ" return szeté 

azzal tis"ldxi(SazB7ezizaéLLIIS52Z6E31[Lrfzazt[ILD23beb1l319 
Fe igjb return 

nadaz t$5-"1ldv8Jd5a941711Z4a4I(ILIOSZE4BBZI[őz3gztl[[D22bcx1i185s 
a" e retürri 

da va tizölsr[l[fsda:1C0L:14EKlLIISZ5ELLITSZdeLlLLLIIZSSEE[E[8 
a (EG EMÉN 


SZ874 tiíiz"nobzelgea: lnd81":retürri 
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B.e7rezzijegzgezHde láz 31A[[I[C5 


:"returri 
retürmri 
retirri 
retürri 


31 201 -1L [421 LL [ (ts sz"ireturmi 
13 

SZE2T tsz"PHPLLINBEZE4DI" : 

53838 t$-"PplagCIEgH7I2AI" : 

53829 t§5"PIPhkIZSD1OJZAL" 


1) 


retiüreri 


t$-"rolLCSZa$1CC: 12ELLLISZ36ELL[őzzelLÓL2S3e//8m18 


53841 tizőörirálssatilC: 16ELLIIE27ECLCLILEzeézHAlr(237eizasg 


3 c retuüurri 

szode tE-"rtillidALLCIIO1" return 

mzggz több ftzléft. 17181" :-returri 

57544 z"zbe(CSz9r[CICIZsSsSILITzfsna.zszedsz; zz2fdnié. 47 
CEE Esznek egeret FF IILLTSzZ tt retúrm 

aazta tisszeznilz3$823E91"-retürmn 

maató sedar 1f3nznsa1" éretültri 

eÜlétsi silL17242$HEODL" -retürvi 

mi ; tés"ztagl3e5tiz 1 3z3aotazzeézgdtőözszszzaüt [[[SZ5896CEII3 


tis"taslBlazazaiAi" 
. tászötyaunyidörzziAi" 
ag tiz"tsxILibaLlC[ICIR1" 
tis"ti zigarir391" 
szana tíizö"txeszilIligarsr4ámni" 


ök ke SILTTLaz return 
úz [szin st.xPuzS6SSi[C3ZAELLET7EZETIFIZ3 "return 
kpazlebézü zás rel CSz3 
tsz"taxtviaasza4al" : 


gre LSEZSZEEL[22" return 
retüireri 
"retürvi 
return 
"retüurri 
"retüur vi 
"return 
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7. A C 64-ES OPERÁCIÓS RENDSZERE ÉS BASIC 
INTERPRETERJE 


Egy számítógép nemcsak mikroprocesszorból és tárból áll, ezeken kívül még 
különböző perifériák is csatlakoznak hozzá, mint pl. a képernyő és a nyomtató, 
az adattárolók, vagyis a lemezegység, ill. a kazettás egység. Ahhoz, hogy 
ezeket a készülékeket használni tudjuk, a mikroprocesszornak speciális prog- 
ramokra van szüksége. Ezek a programok a számítógépben vannak és a 
számítógép operációs rendszerét (pontosabban annak egy részét) alkotják. 


A számítógépünk eleve ismeri a BASIC programozási nyelvet. A BASIC progra- 
mok megértéséhez a számítógép ún. BASIC interpreterrel rendelkezik. Az 
interpreter nem más, mint a processzor nyelvén írt olyan program, amely a 
BASIC utasításokat elemzi és kiváltja az ezeknek megfelelő gépi műveleteket. 


Ebben a fejezetben azzal foglalkozunk, hogy miként lehet ezeket a programo- 
kat (az operációs rendszert és az interpretert) egyéni céljainknak megfelelően 
hasznosítani. A programok alprogramokból épülnek fel, amelyeknek át kell 
adnunk a szükséges információkat. Ezt legtöbbször az X regiszterrel és az 
akkumulátorral tehetjük meg. 


Az operációs rendszer alprogramjait akkor használjuk, ha valamelyik perifériá- 
ra van szükségünk. De mire valók az interpreter alprogramjai? Minden prog- 
ramnyelvnek el kell látnia bizonyos feladatokat, mint pl.: a lebegőpontos arit- 
metikában való számolást, vagy a feltételes szerkezetek kezelését stb. 


Gyors futást eredményező és nagyhatékonyságú gépi kódú programok írása 
időt rabló munka, ezért az ilyen rutinok írására csak különleges esetekben 
szánjuk rá magunkat. 


Ez a fejezet egyrészt speciálisan a C 64-essel foglalkozik, de megjegyezzük, 
hogy a legtöbb mikroszámítógép operációs rendszere és interpreterje sokban 
hasonlíta COMMODORE-hoz. A legtöbb számítógéphez megfelelő kézikönyvek 
vannak, amelyekben utánanézhetünk annak, hogy hol találhatók a számítógép- 
ben az egyes rutinok és hogyan lehet ezekkel a rutinokkal a paramétereket 
közölni. 


A kurzor kezelése 
A kurzor kezeléséhez olyan alprogram szükséges, amely különböző paraméte- 


az X regiszterbe a sor, az Y regiszterbe az oszlop számát kell beírni. Ezután 
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CLC paranccsal kell nullázni a CARRY BIT-et (átvitel), és a $FFO-nál kezdődő 
alprogramra kell ugrani. Ezután egy utasításban mindig vagy csak az oszlop- 
nak, vagy csak a sornak a számát módosítjuk. Amikor azonban az oszlopot meg 
akarjuk változtatni, nem tudjuk, hogy melyik sorban van éppen a kurzor, ezért 
először le kell kérdezni a kurzor helyét. Ez ugyancsak az előbbi alprogrammal 
valósítható meg, de ilyenkor a CARRY BIT-et SEC paranccsal be kell állítani. 
A C 64-esnél a sorokat és az oszlopokat nullától kezdődően számozzuk, ezért 
pl.: a 17. oszlop sorszáma 16. lesz. Helyezzük pl. a kurzort a 22. oszlopba: 


SEC 

JSR $FFFO 
CLC 

LDY 43-21 
JSR $FFFO 


A képernyőtörlés 


A képernyő törlésére a JSR $E544 alprogram szolgál. 


Karakter kivitele a képernyőre 


A karakter kiviteléhez, annak ASCII kódját az akkumulátorba kell tölteni, majd 
a $FFD2-ben kezdődő alprogramra kell ugrani. Vigyük ki pl. az A betűt a 
képernyőre: 


LDA 165 
JSR $FFD2 


Karaktersorozat kiíratása a képernyőre 


Rendelkezésünkre áll egy olyan rutin, amely egy egész karaktersorozatot ír ki 
a képernyőre, ha az idézőjelek közé van zárva. A kezdő idézőjel címét az 
Y regiszterbe és az akkumulátorba kell tölteni, majd a kiíró alprogramra, a 
$AB1TE-re kell ugrani. 


A lap száma az akkumulátorba, az adott lapon lévő hely címe az Y regiszterbe 
kerül. A lapra vonatkozó információt a cím magasabb helyiértékű részének 
(felső byte), a lapon lévő helyet a cím alacsonyabb helyiértékű részének (alsó 
byte) hívják. A felső byte-ot az ASSEMBLER-ben HB-vel (Hight Byte), az alsó 
byte-ot LB-vel (Low Byte) jelöljük. Írjuk ki a $1000-esben kezdődő karaktersoro- 
zatot. 
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Cím .EGU $1000 
LDY LB-cím 
LDA HB-cím 
JSR $AB1TE 


A soremelés 


Ugyanazt az alprogramot használjuk, mint amivel az egy karaktert lehet kiírat- 
ni. A soremelés ASCII értéke 13 (a képernyőn való soremeléshez elegendő a 
kocsi-vissza billentyű egyszeri megnyomása). 


LDA 413 
JSR $FFD2 


Ezeket a feladatokat a ZVOR alprogram végzi el. 


ZVOR .CÍMKE 
LDA 413 
JSR $FFD2 
RTS 


Kiíratás a nyomtatóval 


Először meg kell nyitnunk a nyomtató számára egy kiviteli csatornát. Ehhez a 
rekeszekbe a következő információkat kell tölteni: 


183 a file név hossza, 
184 a logikai file szám, 
185 másodlagos cím, 
186 készülékszám. 


Ha a file-nak nem adunk nevet, akkor a 183-asba O-t kell írni, mivel a név 
hossza 0. 


LDA 4-0 
STA 183 


A logikai file szám és a készülékszám 4. 
LDA 34 


STA 184 
STA 186 


209 


A másodlagos cím 7-es, így a nyomtatót nagy- és kisbetűre kapcsoljuk. 


LDA 47 
STA 185 


Ezután az állomány megnyitására szolgáló alprogramra ugrunk. 

JSR $FFCO 
A csatornaszámot az X regiszterbe kell tölteni. Az adatkivitel ezen a csatornán 
fog végbemenni. A következő két parancs után a kiírás a nyomtatón jelenik 
meg. 

LDX 44 

JSR $FFC9 


Kiírás ismét a képernyőre 


A biztonság kedvéért a nyomtatópuffer kiürítésére egy soremelés parancsot 
adunk. 


JSR ZVOR 
Ezután kijelöljük a képernyőt. 
JSR $FFCC 


Most zárjuk le a 4-es csatornát. Ehhez a csatornaszámot az akkumulátorba kell 
tölteni. 


LDA 4-4 
JSR $FFC3 
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A LEBEGŐPONTOS ARITMETIKA 


Műveleten két lebegőpontos szám összeadását, kivonását, szorzását, osztását 
vagy hatványozását értjük. 


A továbbiakban feltételezzük, hogy a lebegőpontos számokat a belső ábrázolá- 
si módban tároltuk. 


A műveletek végrehajtására többféle lehetőségünk van. Ezek közül most kettőt 
ismertetünk. 


a) Kijelölünk két tárterületet a lebegőpontos számoknak. A műveletek kezdete- 
kor a változókat az így kijelölt tárrekeszbe visszük, majd a kívánt műveletnek 
megfelelő alprogramra ugrunk. Az eredményt egy ún. célváltozóba töltjük. 


b) A két tártartomány neve, ahova a lebegőpontos számokat töltenünk kell a 
FAC, ill. az ARG. Erről részletesebben A Commodore 64-es belső felépítése c. 
DATA BECKER - NOVOTRADE kiadvány ROM listájából tájékozódhatunk. 


A következő alprogramokat fogjuk használni: 


egy változó átvitele az FAC-be; 

a FAC tartalmának átvitele egy változóba; 

egy változó és a FAC tartalmának összeadása; 
a FAC tartalmának kivonása egy változóból; 
egy változó szorzása a FAC tartalmával; 

egy változó osztása a FAC tartalmával; 


egy változó hatványozása a FAC tartalmával. 
Valamennyi művelet a következő példa szerint megy végbe. 
változó 1 művelet változó 2 eredmény változó 3 


Először a változó 2 a FAC-ba töltődik. Végrehajtódik változó 1-gyel a művelet, 
az eredmény, ami FAC-ban van, a változó 3-ba kerül. 


Nézzük végig a különböző eseteket! 
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1) Egy változó átvitele a FAC-ba 


A változó címe az akkumulátorba, ill. az Y regiszterbe kerül, mégpedig a 
következőképpen: az Y regiszterbe a cím felső byte-ja, az akkumulátorba a cím 
alsó byte-ja kerül, ezután ugrás a $8BA2-ben kezdődő alprogramra. 


Vigyük be pl. a Kati változó értékét a FAC-ba: 
LDY d4-HB-Kati 
LDA 3-LB-Kati 
JSR $BBA2 


2) A FAC tartalmának átvitele egy változóba 


A változó címét az X és az Y regiszterben kell megadni. X regiszterbe az alsó, 
az Y regiszterbe a felső byte tartalma kerül. Az alprogram a $BBD4-ben 
kezdődik. A FAC tartalmát vigyük át az Anna nevű változóba: 


LDX 3HLB-Anna 
LDY -HB-Anna 
JSR $BBD4 


3) Egy változó és a FAC tartalmának összeadása 


A változó címét töltsük be az akkumulátorba, ill. az Y regiszterbe, és ugorjunk 
a $8867-ben kezdődő alprogramra. Ez az alprogram a változó értékét először 
az ARG tártartományba viszi, majd hozzáadja a FAC tartalmát, és elhelyezi az 
eredményt a FAC-ban. A további pontokban ismertetésre kerülő műveletek a 
fentihez hasonlóan működnek, csupán az alprogramok címe más és más. 


Adjuk össze a Balázs nevű változó tartalmát a FAC tartalmával. 
LDY d-HB-Balázs 
LDA 3-LB-Balázs 
JSR $B867 

4) A FAC tartalmának kivonása egy változóból 


Lásd a 3) pontot, de a cím $B850. 


5) Egy változó szorzása a FAC tartalmával 
Lásd a 3) pontot, de a cím $BA28. 
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6) Egy változó osztása a FAC tartalmával 


Lásd a 3) pontot, de a cím $BBOF. 


7) Egy változó hatványozása a FAC tartalmával 


Ezt a műveletet az operációs rendszernek azzal a rutinjával végezzük el, 
amelyik az ARG-ot hatványozza a FAC tartalmával. 


A hatványozandó változót tehát először be kell vinni az ARG-be. 
Hatványozzuk pl. az Anna változót a FAC tartalmával: 
LDY t-HB-Anna 
LDA 4-£LB-Anna 
JSR $BABC ; Anna nach ARG 
JSR $BF7B ; ARG hoch FAC 
Függvények 
A függvények értékének kiszámítása a következő: 


a változó értékét a FAC-ba töltjük, ezután az adott függvénynek megfelelő 
alprogramra ugrunk, végül a FAC tartalmát a változóba töltjük. 


A hívható függvények és az azoknak megfelelő alprogramok címei a követke- 
zők: 


Függvény Kezdőcím 
absolut (abszolút érték) $BC58 
actangens (árkusz tangens) $E30E 
cosinus (koszinusz) $E264 
exponent (exponenciális) $BFED 
integer (egészre kerekítés) $BCCC 
logarithmus (logaritmus) $B9EA 
speicherwert (tárérték) $B8OD 
zufall (véletlenszám) $E097 
vorzeichen (előjel) $BC39 
sinus (szinusz) $E26B 
guadratwurzel (négyzetgyök) $BF71 
tangens (tangens) $E2B4 
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Képezzük Feri abszolút értékét és tegyük Zoliba. 
Töltsük be Feri értékét a FAC-ba: 
LDY 3t£HB-FERI 
LDA 4-LB-FERI 
JSR $BBA2 
Az abszolútérték-függvény hívása: 
JSR $8BC58 
A FAC értékének átvitele Zoliba: 
LDY 4-HHB-ZOLI 


LDX 4£LB-ZOLI 
JSR $BBD4 


214 


AZ ADATOK BE- ÉS KIVITELE 


Az interpreter, ill. az operációs rendszer különböző rutinokkal rendelkezik az 
adatok ki- és bevitelére. 


Az adatkivitel 


A lebegőpontos számok a tárban ún. belső ábrázolású alakban vannak. Erről 
az alakról ASCII kódú számokká kell azokat alakítani. Ehhez először be kell 
vinni a számokat a FAC-ba. A FAC-ban lévő számokat egy rutin átalakítja és 
a $0100-es címnél kezdődő tártartományba viszi. Ezt a tártartományt be- és 
kiviteli puffernek, röviden puffernek nevezzük. A pufferbe 12 karakter fér. Az 
átalakítás után a rutin egy kettes számrendszerbeli 0-t ír a pufferbe utolsó 
karakterként. Így mindig pontosan tudjuk, hogy milyen hosszú az a karakterso- 
rozat, amit ki akarunk írni. A kiírás a már előbb említett rutinnal, vagy egy 
általunk írt programmal megy végbe. 


Nézzünk egy általunk írt adatkiviteli alprogramot! 
Töltsük a változó tartalmát a FAC-be: 

LDA 4-£LB-Név 

LDY 4-HB-Név 


JSR $BBA2 
JSR AUS ;az adatkiviteli rutin hívása 


Az adatkiviteli rutin 


AUS .MARKE 

JSR $BDDD sa FAC tartalmát $0100-ba töltjük 
LDX tt 0 ;X regiszter törlése 

AUSP .M sadatkiviteli ciklus 

LDA $0100,X sa karakter betöltése az akkumulátorba 
BEG AUSE :ha akku — 0, akkor vége 

JSR $FFD2 saz akkumulátor tartalmának kiírása 
INX ;X regiszter tartalmát 1-gyel növeljük 
BNE AUSP az adatkiviteli ciklushoz 

AUSE :M :ciklusvég 

RTS vége a feladatnak 
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Néhány magyarázat 
JSR $BDDD 


LDA $0100,X 


BEO AUSE 


JSR $FFD2 


BNE AUSP 


Az adatbevitel 


A FAC tartalmát a megfelelő ASCII ka- 
rakterekké alakítja. 

A $0100 4 X-ben lévő karaktert az akku- 
mulátorba viszi. 

Kettes számrendszerbeli 0-t tölt az ak- 
kumulátorba, lezzel beállítja a 0-dik bi- 
tet és az AUSE-hoz ugrik. 

Az adatkiviteli rutinhoz ugrik, amely ki- 
írja az akkumulátor tartalmát. 

A BNE parancs végrehajtása gyorsabb, 
mint a JMP parancsé. Mivel INX tartal- 
ma egy 0-tól különböző szám, a nulla- 
bitet a parancs kinullázza. Ennek az a 
következménye, hogy végbemegy az 
ugrás. 


Az adatbevitel végrehajtásához is írunk egy alprogramot. 


BE .MARKE 


Az adatbevitelnél jelenjen meg egy kérdőjel a képernyőn. A kérdőjel ASCII 


kódja $3F. 


LDA 4-$3F 


JSR $FFD2 ;"?" kiírása 


A bevitt karaktereket a $0220-as tárhelytől kezdődően helyezzük el. Indexre- 
giszterként az X regisztert használjuk. A bevitelt végrehajtó rutin kezdőcíme a 
$FFCF. Az utoljára bevitt karakter után le kell nyomni a RETURN billentyűt 


(ASCII kód $D): 


LDX 4-0 

BE1 .MARKE 
JSR $FFCF 
STA $220,X 
INX 

CMP 4$D 
BNE BE1 
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A Return billentyű lenyomása után a 
JSR $FFD2 


paranccsal soremelést végzünk. 


Ezután a puffer mutatóját és a beviteli mező hosszúságát megadjuk egy rutin- 
nak. Ez a bevitt karaktereket belső formátumra alakítja és a FAC-ba helyezi el. 


LDA 4-$02 
STA $23 
LDA 4-$2P 
STA $22 
DEX 

TXA 

JSR $B7B5S 
RTS 


Ezek után a saját programunkba már csak a következőket kell írni: 


JSR BE 

LDX t-LB-Név 
LDY i-HB-Név 
JSR $BBD4 


és ezzel értéket kapott a változó. 


A sorszámok kiíratása 


A program működését követve az interpreter egy rutinja kiírja annak a sornak 
a számát, ahol a program megszakadt (BREAK IN...). A sorszám alsó és felső 
byte-ra bontva jelenik meg. Ezek az X regiszterbe és az akkumulátorba kerül- 
nek. A rutin a $BDCD címnél kezdődik. 


A 259-es sorszám kiírása: 
LDY 43 


LDA 4-1 
JSR $BDCD 


A FELTÉTELES UTASÍTÁSOK 


A programnyelv felépítése a következő: 


wenn A 
dann 


wende 


Ha az A feltételt a B operátor kielégíti, akkor a programot a sonst utasításig 
tovább kell folytatni. Ha a feltétel nem teljesül, akkor a sonst utáni részre kell 
ugrani. Vizsgáljuk meg, hogyan megy ez végbe a feltételek szóbajövő esetei- 
nél. Az interpreternek egy rutinja két lebegőpontos számot képes összehason- 
lítani. A rutin kezdőcíme $BCSB. Az első lebegőpontos szám címének a FAC- 
ban kell lennie, a másodikét a már ismertetett módon az akkumulátorba és az 
Y regiszterbe kell bevinni. Az alprogram végrehajtása után az összehasonlítás 


Operator B 


Blokk 1 


Blokk 2 


eredménye az akkumulátorból olvasható ki. 


Akkumulátor — 0 A két érték azonos. 


Akkumulátor — 1 Az első változó nagyobb, mint a második. 
Akkumulátor — 255 Az első változó kisebb, mint a második. 


Nézzük az egyes műveleteket! 
Operátor: — 


Az első változó átvitele a FAC-ba 
LDA 4-HLB-Változó 1 
LDY 3-HHB-Változó 1 
JSR $BBA2 


A második változó címének átadása 


LDA 3HLB-Változó 2 
LDY 3-HHB-Változó 2 
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Ugrás az összehasonlító rutinra 


JSR $8BC5B 
Az eredmény kiértékelése 


CMP 3-0 ;akkumulátor összehasonlítása 0-val 
BNE sonst 


A program további utasításai következnek 


JMP wende "vége az első blokknak 
sonst .MARKE ;a második blokk kezdete 


A második blokk utasításai 
wende .MARKE ;feltételes utasítás vége. 

A CMP 4-0 utasítással egyenlőség teljesülését vizsgáljuk. Ha az összehasonlií- 
tásra kerülő értékek azonosak, akkor nem kerül sor ugrásra, ellenkező esetben 
ugrani kell. A többi műveletnél is ugyanezzel az elvi felépítéssel találkozunk, 
különbségek csak a feltételek kiértékelésénél vannak, ezért csak ezt vizsgáljuk. 
Operátor: / — 

A / - feltétel kiértékelése: 


CMP:tH0 
BEG sonst 


A CMP 3-0 utasítással a változók azonosságát vizsgáljuk. Ha azonosak, akkor 
a sonst-hoz ugrunk, ha különböznek, folytatjuk a programot. 

Operátor: -— 

A 5 feltétel kiértékelése: 


CMP 41 
BNE sonst 


Ha az első változó 5 a második változónál, akkor a program folytatódik, 
különben a sonst-hoz ugrunk. 
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Operátor: c — 
A a — feltétel kiértékelése: 


CMP 4-1 
BEG sonst 


Az utasítás működése megegyezik az előző utasításéval. 
Operátor: c 
A — feltétel kiértékelése: 


CMP 4-255 
BNE sonst 


Operátor : 5 — 
A 5 — feltétel kiértékelése: 


CMP 4255 
BEG sonst 


Egymásba szerkesztett feltételeknél a címkék helyes kijelölésére ügyelni kell! 
Lásd A szemantikai elemzés és a kódgenerálás c. fejezetben. 
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A CIKLUSOK 


A fordítandó ciklusutasítás szerkezete: 


fuer változó 1 von változó 2 bis változó 3 wiederhole 


— — blokk 


sende 


A ciklusutasítás működése: először a változó 1-hez kezdőértékként a változó 
2 értékét rendeljük. A ciklus elejét címkével jelöljük, majd megvizsgáljuk, hogy 
a változó 1 értéke nagyobb-e, mint változó 83 értéke. Amennyiben igen, akkor 
a ciklus végére ugrunk, ha nem, akkor a változó 1 értékét eggyel megnöveljük 
és végrehajtjuk a blokkban lévő utasításokat, ezután a ciklus elejét jelző címké- 
re ugrunk. 


fuer ottó von enno bis benno wiederhole 


sende 
Legyen enno értéke 1, benno értéke 3. 


otto értéke felveszi 1-et. 

otto nagyobb már, mint benno? 
Nem, ezért legyen otto — otto t 1. 
Az utasítások végrehajtása. 

otto — 2-vel ugrás a vizsgálathoz. 
otto nagyobb, mint benno? 

Nem, ezért legyen otto — otto - 1. 
Az utasítások végrehajtása. 

otto — 3-mal ugrás a vizsgálathoz. 
otto nagyobb, mint benno? 

Nem, ezért legyen otto — otto - T1. 
Az utasítások végrehajtása. 

otto — 4-gyel ugrás a vizsgálathoz. 
Igen, ezért ugrás a ciklus végére. 
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Látjuk tehát, hogy a ciklus magját képező utasításokat háromszor hajtottuk 
végre. 


Nézzük a fenti ciklusnak megfelelő assembler nyelvű programot! 


otto értéke felveszi enno értékét. 
enno értékének bevitele a FAC-ba: 


LDY HHB-enno 
LDA t-LB-enno 
JSR $BBA2 


A FAC értékének beírása ottoba: 


LDY i3-HB-otto 
LDA 3£LB-otto 
JSA $BBD4 


A címke elhelyezése a ciklus elejére: 
CIKLUS .MARKE 


Ellenőrizzük, otto értéke nagyobb-e benno értékénél és otto értékének bevitele 
a FAC-ba:; 


LDY i-HB-otto 
LDA tHLB-otto 
JSR $BBA2 


benno címének átadása: 


LDY ti-HB-benno 
LDA $LB-benno 
JSR $B8BC5B 


Az értékek összehasonlítása (nagyobb-e?): 
CMP 31 
BEG CIKLUSVÉG 

Nem, tovább. 

A FAC értékének növelése eggyel: 
LDA 3-$E8 


LDY $$BF 
JSR $B867 
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A FAC értékének beírása ottoba: 


LDY i1-HB-otto 
LDA iHLB-otto 
JSR $BBD4 


A blokk utasításai következnek, ciklusvég 


JMP CIKLUS vissza az elejére 
CIKLUSVÉG .MARKE ;vége a ciklusnak 


Néhány magyarázat 


A CMP 3-1 és BEG címke utasításokat már ismerjük az előző fejezetből. 


Az összehasonlító rutin nem változtatja meg a FAC értékét, ezért a FAC-hoz 
egyet hozzá lehet adni. Az összehasonlítás előtt otto értékét a FAC-ba kell 
tölteni, mivel még nem tudjuk, hogy a FAC miként kerül majd felhasználásra 
magában a ciklusban. 


Az interpreter a $BFE8 címen egy 1-est tárol, amit a ciklusváltozó értékének 
növeléséhez használ. Ezután a FAC értéke a következő cikluslépéshez otto-ban 
megőrződik. 


Ha több egymásba szerkesztett ciklus van, akkor a címkék neveit ez esetben 
is megfelelő körültekintéssel kell megválasztani. 


A kimenettel rendelkező ciklusokat a feltételes utasításokhoz hasonlóan kell 
kezelni. 


Mi hiányzik még? 
A számok belső ábrázolású alakban való előállításának módját A szemantikai 
elemzés és a kódgenerálás c. fejezetben találhatjuk meg. 


A képernyő színének kiválasztásához a színeknek megfelelő számokat (kódo- 
kat) a tár speciális helyein kell elhelyezni. A színek kódjait a számítógép 
kézikönyvből kereshetjük ki. 


Ezzel az ismertetéssel kívántunk kedvet ébreszteni az operációs rendszer és 
az interpreter alaposabb megismeréséhez. 
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8. HOGYAN TEHETJÜK PROGRAMJAINKAT 
RÖVIDEBBÉ? 


A könyvünkben ismertetett programok számítógépünk tárkapacitásának nagy 
részét programszöveggel töltik ki úgy, hogy bővítésre nem túl sok hely marad. 


Ha BASIC fordítóval rendelkezünk, akkor a programok terjedelmét fordítással 
csökkenthetjük, feltéve, hogy a fordítónk el tudja végezni a feladatot. 


Ha nincs fordítónk, akkor a programokat kézi módszerrel rövidíthetjük, de ez 
nagyon fáradságos. A könyv szerzője a Data Welt c. folyóirat 4/1984-es számá- 
ban javasolt egy megoldást, amelyet itt ismét bemutat. 


Ki ne gondolt volna arra, hogy milyen jó lenne egy-egy BASIC nyelvű progra- 
mot olyan röviddé és gyorssá tenni, amennyire csak lehetséges és mindezt 
egyetlen billentyű benyomásával. 


Legkésőbb akkor gondolunk komolyan arra, hogyan lehetne tárhelyet megtaka- 
rítani, ha a rendelkezésünkre álló tárkapacitás végére értünk. Ilyenkor először 
azokat a megjegyzéssorokat töröljük, amelyekről azt gondoljuk, hogy felesle- 
gesek. Ez az eljárás azonban hamar megbosszulja magát, ha később valami- 
lyen változtatáshoz helyet keresünk a programban. Az összes felesleges üres 
karakter eltávolítása hosszabb programok esetében különben is nagyon apró- 
lékos és hosszadalmas munka. Több sor összevonását az editor csupán nyolc- 
van karakternyi sorhosszig engedélyezi, bár a COMMODORE kézikönyvből 
tudjuk, hogy a számítógép 256 karakternyi hosszúságú sorokat tud feldolgozni! 


A sorok átszámozásának lehetőségét általában csak olyan személyek mérlege- 
lik, akik számíthatnak programozói segítségre. 


Ha a felvetett javaslatokat akár csak egy rövid programon próbáljuk ki, akkor 
hamarosan kiderül, hogy sikerült ugyan helyet megtakarítani és a program 
működését meggyorsítani, de a program nagyon áttekinthetetlenné és a javítá- 
sok számára szinte hozzáférhetetlenné vált. Emellett ez a módszer ugyancsak 
időigényes, és nagy koncentrációt is követel, mert egy sort csak akkor lehet a 
másikhoz kapcsolni, ha meggyőződtünk róla, hogy a megszüntetendő sorhoz 
nem címeztünk ugrást. Végül is nem azért vásároltunk számítógépet, hogy órák 
hosszat a programlista mellett üljünk, és üres sorokat távolítsunk el! Jobb, ha 
ezt a munkát is maga a számítógép végzi! 


Az itt ismertetésre kerülő BASIC COMPRESSOR programmal számítógépünk 
programjainkat kedvező esetben max. 5596-kal rövidebb, és 4096-kal gyorsabb 
futásúvá alakíthatja. A hely-, ill. időmegtakarítás mértéke természetesen függ 
attól, hogy ki és milyen stílusban írta a programot. A szerző saját programjait 
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a BASIC COMPRESSOR átlagosan 4596-kal rövidebbé és 3599-kal gyorsabbá 
tette, annak ellenére, hogy nem túlságosan nagyvonalú a tárhelyek felhaszná- 
lásában, amint ez a BASIC COMPRESSCOR listájából is kitűnik. 


A program kezelése 


A biztonság kedvéért először is kapcsoljuk ki, majd újra be a számítógépet. 
Ezután töltsük be azt a programot, amelyet tömöríteni akarunk. Írjuk be a 
következő két sort: 


POKE 483, (PEEK(45) 4 256xPEEK(46)—2) AND255 
POKE 44, (PEEK(45) 4 256xPEEK(46)—2)/256 


Ezzel a BASIC program kezdetét a tömörítendő program végére helyeztük át. 
Töltsük most be a BASIC COMPRESSORtt és RUN paranccsal indítsuk el. 


Hogyan működik a BASIC COMPRESSOR? 


Először is megkérdezi, hogy hány byte hosszúak lehetnek a tömörített program 
sorai. Vegyük észre, hogy itt a belső sorhosszról van szó! A képernyőn megje- 
lenő sorok általában hosszabbak, mint a belső sorhossz, mert a kulcsszavak 
(pl. GOSUB) egyetlen karakterként tárolódnak. A LIST utasítás azonban csak 
olyan sorokat tud feldolgozni, amelyek a képernyőn legfeljebb 256 karakter 
hosszúak. Számítógépünk tehát hosszabb sorokat tud előállítani, mint amilye- 
neket listázni tud! 


A számítógép minden feltett kérdésre egy javaslattal válaszol, amelyet a prog- 
ram kezelője felülírással megváltoztathat. A bevitelt a RETURN billentyű lenyo- 
másával fejezzük be. 


A program azután azt kérdezi meg, hogy mennyi legyen a tömörített program 
első sorának száma, majd, hogy milyen különbséggel történjék a sorok további 
számozása. Végül azt is tudni szeretné, hogy kb. hány sorból áll a tömörítendő 
program? Ha ilyenkor túl nagy számot adunk meg, akkor előfordulhat, hogy az 
OUT OF MEMORY hibakiírás jelenik meg. Ha a BAD SUBSCRIPT hibakiírás 
tűnik fel, akkor túl kicsi számot adtunk meg. 


A BASIC COMPRESSOR háromszor megy végig a tömörítendő programon és 
kiadja az éppen feldolgozott sor számát. 


Miután a BASIC COMPRESSOR befejezte munkáját, a tárban már csak az 
összetömörített programunk található. Ne ijedjünk azonban meg, ha progra- 
munk összetömörített változatát alig ismerjük fel! 
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Hogy teszteljük a BASIC COMPRESSOR-t? 


Nos, egészen egyszerűen — önmagával! 


Tölisük be a BASIC COMPRESSORt-t, vigyük be a két, fent említett sort, és 
tölisük be a BASIC COMPRESSOR-t még egyszer. 


A program RUN paranccsal való indítása után válaszoljunk a program mind- 
egyik kérdésére egy egy RETURN paranccsal. 


A program futása után a tömörített BASIC COMPRESSOR-t tároljuk. Óvatosság- 
ból kapcsoljuk ki, majd be a számítógépet. Ezután töltsük be az eredeti BASIC 
COMPRESSOR-t, adjuk be a szokásos két sort, és töltsük be a tárolt tömörített 
BASIC COMPRESSOR-it. Indítsuk el a programot, és válaszoljunk minden egyes 
kérdésére RETURN paranccsal. Miután a program lefutott, a VERIFY utasítással 
állapítsuk meg, hogy a tárban lévő program megegyezik-e a külső tárban 
rögzített, és ellenőrzésünkkor betöltött tömörített BASIC COMPRESSOR-ral. Ha 
igen, akkor sem a gépelésnél, sem a kezelésnél nem követtünk el hibát. Mielőtt 
a BASIC COMPRESSORTtt kipróbáljuk, mindenesetre készítsünk egy biztonsági 
példányt magunknak, mert a program megsemmisíti önmagát, miután hibátla- 
nul lefutott! 


Tanulmányozzuk nyugodt körülmények között a BASIC COMPRESSORt-t és a 
programunk tömörített változatát! Ezután bizonyára gyorsan felismerjük a 
programban rejlő lehetőségeket. Használjuk ki ezeket, írjunk jól dokumentált 
programokat, amelyeket aztán fáradság nélkül tömöríttethetünk. 


P7. 
3 basic zomékreszor listaja 
SZ-ZOBÓ Feérn söesmszszesszsm an sz zs em gy sz szt zzz ae mm ZZZ mb ae Se me s ESTE mt 
93018 rem zs volker sáassg mm 
593928 rem s basiz-combregsor m 
5993ú rem s v-2H 4 cbm6é4 reszere sz 
53949 rem zs basic version 2. az 
koti bale  at tu tettei sásdsekatutatatetetatatatatsztatetetedetedszkts 
szaga rem : 
SZÍR Mer zszszozziztezoz great sz ze rz üz zt Em ft HZ 2 IN1 DE AZ 22 E zt EZ 
a3gi11A rem s utasítás mm 
m3il29 rem s $t skursor balra m 
93130 rem os kg zkursor lefele s 
53149 rem 5 7 szlr mt 
SZÍ5A VEN zeszsezzzzzm ezzen mm zzz Zn ez Ia jan a zzz túkt 232 DE SZ [EZ Mg IZ 
Ss4ágim print" "484 bazic-compressor" 
s4á9g2z9 Print"444 maximalis sörhosz" 
adg2i input" szttttttít "5 zi 
34922 Print"4£ elso sarszam" 
594925 input" LO$HHH";z 
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s54924 
54925 
54927 
54928 
54938 
54949 
54045 
54959 
54955 
54968 
54979 
54989 
54998 
54198 
54118 
54128 
54139 
54149 
54158 
4160 
54178 
54175 
54176 
54177 
54178 
54189 
54299 
54219 
s4228 
54239 
54235 
54248 
54399 
54395 
54318 
54328 
54349 
54345 
54359 
54319 
54369 
54318 
54378 
54319 
54380 
54398 
54499 
54410 
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Frint"4 a zsorszam novekmenye" 
irPut" 194$ttt";ab , 

Prrint." 4 a sorok szama" 

input" 39086HH" ; 29 

dim a(a99 ,mita3a), va ta3]) 

3 154608 


if Peek(647979556 and Peek(647589:43 then 1-7z7949 
hzpeekf44k256tbeek (43) :2-1-1:n1-1 

Frint"4 1, menet Söp s" 

zzzt1 : if z-h then 54175 

tspeek íz) 

if t:3234 then g0sub 57599 

if t:32 then Ppoke z.7 : goto 54968 

if tz153 then gosub 57980 : goto 540969 

if t-167 then J30sub 56200 : goto 54960 

if t:137 then J0sub 56409 : goto 54969 

if t:141 then gosub 56408 : goto 54969 

if t:A0 then zzztz : gosub 37799 : gota 54869 
if t:58 then sozsub 57650 : goto 5496A 

if t:143 then gosub 37690 : goto 545369 

goto 5406 

rem szzerzmzmizsmzmz l., menet vege 

mat 1oz1 

gosub 57199 

rem sszzmuxrzszzz 2, menet vege 

for tzi ta vo : znzysít) : gosub 570998 : next 


t1-1 

for tsi to zl 

if mű(ltozi then a(lí(tijsaít) : tlzt1t1 
next 

for tsti to zl : a(tozg : next 
zlzt1-1 

z-1-1 : Pzs1-1 : z4z1 


Print:Érint"£ 3. menet zor : " 

zzszzt1 : if zh then 54498 

tsPeek(fz) 

if t:57 then 54319 

if ts34 then gosub 58099 : if t-354 then 54319 

if t-167 then PzsPzt1:Poke Pz.167 : gosub56199 : goto 


if t:137 then Pz:PRztl:Poke Pz.137 : gosub35548ü9 : goto 
if tzl41 then PFzsPzt1:FPoke Pz. 141: 90suúub55894 : goto 
if t-A then sosub 5EÉégg : gaota 54519 

Pz-Pzt1 : Poke Pz.t. : goto 54219 


Pzspz-r1i : Poke Pz-2.H : Poke Pz-r1.8 
hzintí(Ppz/2569 : izpz-rint(Pz/2561$k256 


94412 


PFcke S2Z85i : Foke 


5d413 rem sszsmzmuzm 

94414 Poke 1.8 

54415 Print:Print"4 "s zepPz."bytertal kevezebbi" 
S44z4 Pake 43.1 : Ppoke 44.18 : if l:s2948 then Poke 44.8 
944-9 Pake 453.Peekrazzi : Poke 46, PeckC(Bz9) : cilr : end 
92398 : 

55dgaüd rem szzzzz tovabbi sorszamok 

aj4kAi : 

s54lf zzsztl : t-Pegkiíz) 

sadz9 if ter then 559414 

53430 if t-d4 then Fzspzt1 : Poke pPz.d4 : gato 35414 
sndd4d9 if t247 and tT33 then gozub 55609 : goto 353448 
S5z4o9 z5sz-1li : return 

aa998 : 

SZEA rem szezzz gorszam felismero ss Patolo 

39682 : 

sal zsz-l : znáz"" 

asozA zzzti 

55622 if Peekízirdrandpeek zo dsöthengosubzsráá: gote 35 
EezH 

szad Znzvalízn$i : zzz-i 

Jo64b for tlis1i ta zl : if aít1lsízn then next 

aan rem szzzaz tl új sorszam 

ssó6g zn$szztr$(it1-1.$zibtzal 

SZ6rő fur tisz to lenízn$? 

S96rz Pzspzt1 : Pokg Pz.aszímid$ízni ti ,.12. 

Jo6r4 next 

ajoBA retuürri 

szési : 

95708 zn$zznítchr$(lPpeekízii : return 

agráz : 

SzetHA rem szezmzsz orszamok gato / a0sub utan 

sagaz : 

Ss5tiA zsztl : tspeekíz. 

s5zazA if ts7 then 35810 

5sza38 if t247 and tC(58 then gosub széna : gosub 534049 
return 

5584A zzszz-rli : return 

azedli : 

5EUBA rem szzzzz sorszam then / guta / aosub lezaraz 
56941 : 

s6y19g zsz-l : za$z"" 

56EYZÖ zsztrl 

5-6g2z if PFeek(ző2dzandPpzsekízicösethengozubós7rut: gota SE 
az9 
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36439 
969441 
56020 
26439 
956869 
95061 
961989 
961987 
96119 
J612 
596130 


pilopzis [4 
-aezüz 
-nbpaelt 
sézzhi 


5s6znki 


S6zza 


mét 
at4iHi 
-nagzki 
mizezbi 
retüra 
zszri : PetüFri 


ng4 ki 


atórk 
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znzyal(ízn$i 

if znízafrzl?; then tosub S7AGA : goto SEGSS 
vozyoti : vslvaojszr 

Zz5z-1 

FRGSAAA 


zszri : tspeek(z) 
if tsz7 then 56110 


if t-í37 then Pzspzti:Püke Pz.137:90S8UD55BBB : 


if t-1i4i then Pzspzti:Pcke Pz,1d1: gzzüubS5sszai : 


if to4d7 and t458 then sosub S36Ha : retüurvi 
zzz-li : retüurri 

rem szuzzszzmz— zorszam then utan 

zzzti : tsPpeskíz? 

if tzsz then Feke 2.7 jnzto seziki 

it t-ls7 then 30szuhotbdoH : retürr 


ti 
if tsli41 then Josub5sódag : retürii 
if tod and t-—52 then Jczub S6lktn : retüurri 
zsz-1 refüreűi 


sorszamok Soto / sosub utari 


zszti : tspezkíző 

if tsz then Pake zo : JjJota 364141 

it t-d7 and t-.5SZ then anzuk Saga : gozuk BE 
vi 


Print Per HAAS 
if zsh-rli then 5£ 
5 1 Tf a. (8 z4 J sz t.Fezn ri SESSB 


Pz-pztl : PakE PzZ.SE : zszztd : retüurmi 
RzspRztl : Paks Pz.Ü 


koke ni.Pzti-cintilPztis zok. áegE, 
bkokg altil,int.-(iPpPztiP/255b) 
ni-pztl : zöséízgelokabtza 


Poke Pztrüszüvintéztezősésstzüb : Paks Pzt4ointizn-z 


pzspztd : zázszdári : oszztádb return 


hw 


rem szzzzz tovabbi sorszamok 


arg pa gi 


aosub 272ti 


szszzzz za keresezge a(c1-ban es tarolaza mek s-b 


ját 
ja 


for zd:l to zl : if aílzdodzn then next. 
melzdszi 
return 


es 
tat ami E 


HEGSKÉSŐ 
) an 


zs1-1 : t-ü 


fNENCAOATALNCALHEREÉNM (NNA ee ÉRE 


TNNNNNNNUUNZ 


Fa E e ea jea e E AT GZ) E: 
ÉR 
hot 


MEN R ült DID 
ata D DD Ten A pan NI 

s 

nm 

ti 

az 

ös 

je 18 

mm ng 


a zszti1 3:Reskízi 

ai hen z716H 

si it g--7 then zcszcti 

tá anta vizi 

9v tz-t.41 if zztzcszm then mAíjt-iszi : zzszc : zcrt 


3 Print. spc(A8—-lenfstréizn? d) detri za 

5 Print spc/8-lenfetriízni riztráízűi 

170 if mArtozi then zzz : zzszg : gota 57290 
fi Zzszztzez 

27190 zczA 

arvzht if zzh-1l then retüurvi 

-z01 zszt4 : gota 53712b8 

AU rem szzezzma if / ümn sezete 


— 


ir a kiüvetkezo szor tarolasa 


a 


metzltilozi : returvi 


kzszlszstszk strinzek atolvazasza 


MANN 
1 aa Rh. 

T 

í 

í 

! 

1 

fi 

1 


t-A 
5) 65 
m 4 
mxn 
- 


t1 : tspeekízi : if tíi534 and t-rH then 57538 


zuzmo kh ornmentzsüarak corleze 
Fegkiz-lőzsg then Pake z-1.7 : Pokg ze7 : got 
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ko sek éz-zözün then Poke zrz7 
ee ze a 
mzl-1 LE gr atelziázaka tá am JAS Paeke zí4.7 next 
HA zt1 : if Peekízozrb then Pake z.7 : goto 57EezH 
A zr3 jazuk 5rzhti retümri 
Kezta zzsesszumm kettozbonützarak torlez 


. bezekízvőülisbi aad Pzekíztlizf then ü764H 
zt.urri 


Je eR Ram E 


57 

SZE att É 

gr7r4á zzz : retürri 

azadük rem szzmuueszsz karakterlanz atvitel 


SZÖLÖ Hz :Pzti : Poke Pz.594 
szüzb z : tz Ess 
7 i szú then Pz-Pzti : Poke Pz.54 (return 
úg eti pzet: Sota SSAZH 

P8. 
a tomwritett zumbkreezszar  liztada 
1 Print." "844 basic-comPpressor": Print" 65.64 maximal 
is sorhosz":inPput" egttát "ő sze print "4 elsv zorsz 
am" : input" lattttt" za :Print"§£ a zorszam novekmen 
ge": input" lottttt";ab:Print"4 a zorük szama" ":inpP 
ut" Jsagtitttttt" ; a9 


Z dimata99 mata3), v2(39) : alz460g: ifpPeek(S4FBTIZSBANÁdP eg 
kéédröözzdöthenlz :2048 
hepPezk 44) eeSEtPeek (43 szel-liniísl:Print"8£ 1. menet. 
sor o: " 
zzszt1:ifzőhtheni5 
tspPeekízi : iftz3z4then30sub?7? 
ifts32zthenFokez, 7: 3g0todg 
ift-139thengosubzó : gutö4 
iftsi6ézrthen9osub43 : goto4 
iftzig7thengsosub54 : goto4 
ift-idlithenaszubs4 : zotad 
ittsAthenzszt3: 208ub37 : got o4 
iftssöthengüzsuübőt : gotod 
iftzid3thengosub73 : aot.a4 
gat.od4 


my 


mat1o:1:gosuúuber fürtsíitovo:znzvyattj : gosubós: next: tiz 


kezzel smgál ezét eget sgt ez ht 1 la 2 4.6. HET c SEL vs; 


NA üREm 
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lL:fortsitozl:ifmeltodzithenaítijzsaíts:tilzti1r1 


16 
z1 
17 
18 
19 
za 
21 
22 
Feb 
24 


23 


next: fortztitozl:aítizü: mextizlstií-i:zs1-1:Pzzszl-1:z4 


:"Print:Frint"4 3. menet sor : " 


zszti : ifzőhthenz5 

tspegkíz)  iftz7thenl7 
ifts34thersosubag : ifts34theni7 
itt:zli6érthenpzspzt1 :PikePpz. 167: gozub4dd : gat. 
iftsi37-thenpPzspzt1:beokePpz, 177: 90ozub36 : goto17 
iftszldáíthenpzszbzt1i:Pokepz, 141: 90suúub356 : gotolr 
irtsüthengosubaz : 3gatalr 

Pzspzt1:PokePpz.t:7otoir7 
PzsPpz-1:PckePz-2. 8: PokePpzri , B:hsintéPz-/2582: izpz-int 


(P2z-/25367k256 : Packegzg. ii :Pokeszs h:Pakel.B:.Print:Print."4 


" 2-pPz;"byte-rtal kevesebb!" :Poke43.1:Poked4. 13: itflsz 


úügathenpoks44, 7 


-b 
wurd 
7 


Poke45.Peek(Ssz3) :Pokedé .Peek (ezg ir : clr: end 
zszti:tspzsekiz;: iftz/then27 
ift:zd44thenpzzpzti:PokePpz, 44: gotaz7 
iftodvrandtasetbhengozübzi : gotozi 

zsz-líreturm 

zsz-1:znáz"" 
zsztl:.ifPpPeekízov4d7andPpeek íz. 5ethernzazubős : gatosz 
znzyalízn$? :zsz-ifeortisitazl:ifal(tisTzüthernext 
znizzatrá(fít1-ilo$kabtsaj; fertizsztolenízn$i  PzsPzt1l:Pak 


epz,aszímid$íznk$ ti, 124: next iretürvi 


mile 
a7 


zn$izszznftürrilpPeekézsl return 
zsztl:itsPeekíz.: iftzrőthenz6 
iftodvandt-ásethengzőozsúukbt31 : sosubef return 
zsz-elretürmri 

zsz-1:ze$-"" 
zszti:ifpeekízisárandpeekrz2éSethengosub]33 : gato19 
zosvalízn$?  itznisaírzloöthenzszütés : goto4gz 
vozvotl val VvOJ sz 

zs2z-1 return 

zsztl:tzsreekíző?  iftsz7thendd4 
iftsigzthenPpzsPzr1:FPokePz. 137 " 390zúub36 "return 
ift-l14lthenpzzspzt1:PokePz. 141: g90suúub36 return 
iftodraddt2535thenzosub8l1 return 

zz-1 return 
zsztl:tzPpeegk(z) : ifts32thenpok ez. 7 : got049 
iftzlis7thenygyasúubsd return 
ifts14íthengosub34 : returri 
ift-idvandtisöthenzosub33a  retütri 

zsz-lireturri 
zsztli:tsPpeekíiző : ifts3éthenpekez, 7 : got.054 
ifted7andtaszthengozúub39 : gosubal return 
zsz-liretüurmi 
znzpezkíztijtPeekízt4ás 256 :Printzspcfarlenlsetrfízni 2. 


stráíznd; : ifzrzh-lthened 
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95 ifalzdszznthenba 

99 PzsPzt1:Pokepz.S53ízsztbiretuürm 

68 Pzspzt1l:PckePz.H:Pokeni.Pztl—intréPzt12- 2582 E25E:Pok 
enitl.intMéPzt127/258s  nispzti:.z5szfzd-li$abtza Ppakepzt3, 
zs-int(z5/zsbikzs6: Pokepzt4. int (25/2561: Pzspzt4:.z4sz4t1 
zsztarretuüurri 

$1 zsztl1:tsPeekíz;: iftszethenpckez. 7: 90t5651 

éz iftzsá4ádthené1 

63 iftod7fandt-séthenzosuúb]z : sozubős : got.061 

64 zszz-liretüurri 

63 forzdzitazl: ifafízdoiiznthennexzt 

martzdizil:retürmi 

Print.Prirt"4 2. menet sor : ":zsl-i:t:sA 

zzzt! . dsPpeekfzl: ifdsöthenri 

ifgezrthenzczszeti 

goto 8 8 

tstti:ifzztzzozmthenmáítelizi: zzszc: zer 
Printspifá-rlenfetrsíznzsastráízni . rt ifnzítoslthenzzszb 


NIR mM TO 


megzltiszi:retürmni 
zszt1 : tspeek íz? : ittérsdandt —űtheny 
returvi 
79 ifpeekízelőssöthenbőkez-1. 7: bokez.7 : 3atosz 
ad ifFeekízrilszzandpeeküzezősööthenPok ez-z 7 Paukez.7:90 
ta8z 
81 zlszl-1i:forz35zz-5Steoz:Pokez3. 7: next 
sz zsztl:ifpzekizsi-bthenPpokez, 7: atosz 
92 zszti gosuúubaz  retürri 
4 ifpeekízr5istandPpeek (zt1osütheneb 
mo return 
96 zlszl-l:.forzszsz-9toz Pokez3. 7 "next, zszrd: agsúubáv ret 
a 


EGY ZNI SEEK ES PR DIÜMDINNTÜ 
1 


NN es 


ura 

97 zlsziti:-alzlospeekízőötPbegekízti.$z5Sb: brintspef 
trg(afzlojsostráíkalzl25; :zszti:returmn 

88 PzsPpzt1:PokePpz, 34 

89 zsztli:tspbegk(zi:iftedortszáthenbzszezti:pokepz. 34 :ret 
ur ri 

99 Pz:sPzt1:PokePpbz tt : 3otoB83 
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SZÁMÍTÁSTECHNIKA A KÖNYVESBOLTOKBAN 


NOVOTRADE — 2 C ÁRUHÁZ 
1136 Bp., Balzac u. 35. Tel.: 402-954 


ÁLLAMI KÖNYVTERJESZTŐ V. - NOVOTRADE 2C 


BUDAPEST BUDAPEST 


Táncsics Könyvesbolt 
1073 Lenin krt. 17. 


Műszaki Könyváruház 
1061 Liszt Ferenc tér 9. 


Telefon: 422-178 


Telefon: 420-353 


MŰVELT NÉP KÖNYVTERJESZTŐ V. - NOVOTRADE 2C 


PÉCS 


Zrínyi Miklós Könyvesbolt 
7621 Jókai u. 25. 
Telefon: 72-12835 


DEBRECEN 


Szak- és ismeretterjesztő 
Könyváruház 

4024 Hunyadi u. 8. 
Telefon: 52-23237 


SZOMBATHELY 


Savaria Könyvesbolt 
9700 Mártírok tere 1. 
Telefon: 94-12341 


VESZPRÉM 


Kölcsey Ferenc 
Könyvesbolt 
8200 Cserhát út 7. 


BÉKÉSCSABA 


Radnóti M. könyvesbolt 
5600 Tanácsköztársaság 
út 2. 

Telefon: 25-207 


GYŐR 


Pattantyús Á. Géza Szak- 
könyvesbolt 
9021 Molnár Ferenc u. 9. 


SZEGED 
Tömörkény Könyvesbolt 


6720 Lenin krt. 48. 
Telefon: 62-21453 


SZOLNOK 
Szigligeti Könyvesbolt 


5000 Ságvári krt. 35. 
Telefon: 56-11133 


MISKOLC 


Chip-kuckó 
3530 Tanácsház tér 14. 


Minden érdeklődőt szeretettel vár 
az ÁKV, a Művelt Nép és a NOVOTRADE RT! 


